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ABSTRACT: An experimental model of an Encoder has been 
constructed to translate the mathematical language of ADES 
into programs for the 650 Magnetic Drum Calculator. This 
model was used primarily to demonstrate that the logical 
design was sound, and that ADES could actually be put into 
operation. Several problems were programmed and then com- 
puted successfully. Although this particular model is not 
recommended for production, it can be studied profitably as 
a source of ideas for machine techniques which can be used 
in a production model. The experience gained with this 
model indicates that ADES is a feasible automatic program- 
ming system for computers with magnetic tape storage. 
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This report describes an experimental model of a device for translating 
mathematical formulas into programs for digital computers. This device 
is part of a general system of automatic programming called ADES. The 
model proves the feasibility of such an automatic system. The experimen- 
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embodies the logical design for a general device to be used with any 
computer. 
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PREFACE 

It is assumed that the reader is familiar with NAVORD Reports ^209 and 
Mil, which describe the ADES language and the logical design of the ADES 
Encoder. They shall be referred to frequently in the ensuing pages. As 
described in those reports, ADES was still only a system on paper. It was 
decided to construct an actual Encoder to prove to interested, but somewhat 
skeptical, persons that such a device would really operate as claimed. The 
job was undertaken with the foreknowledge that the computer to be used to 
synthesize the Encoder was not entirely adequate. Nevertheless, since the 
650 Calculator (without tapes) was the only computer directly accessible, it 
was chosen, with the understanding that the resulting device would be 
regarded only as an experimental model of the Encoder. 

The experimental model was completed by two persons in about three 
months. It consists of approximately three thousand 65O instructions, 
which are read on to the drum in phases. This model does not include all 
the features of the ADES II Encoder described in report khll. It is 
estimated that to do this would require an additional two thousand instruc- 
tions at most. Had magnetic tapes been available, the complete ADES II 
Encoder could have been built and operated successfully on the 650 calcula- 
tor. The results obtained with the experimental model amply justify a 
future undertaking of this kind. It is hoped that Encoders will be built 
for the larger and faster machines now in use. 

We wish to acknowledge the fine work of Mrs. M. Zawatzky who assisted 
in preparing this report for publication. 
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AN ADES ENCODER FOR THE IBM 650 CALCULATOR 



I . INTRODUCTION 

In NAVORD Reports 4209 and 4411, a system for the automatic programming 
of mathematical problems for a digital computer was described. This system, 
called ADES, consists of a language similar to ordinary mathematical 
notation, a translating device called the Encoder and a digital computer. 
ADES is a general system designed for use with any modern electronic computer. 
In this report, we describe its application to the 650 magnetic drum calcula- 
tor. 

The 650 calculator at NOL is used with an interpretive speed-code 
system which converts the machine to a single-address computer. Interpretive 
codes are provided for the usual arithmetical (floating-point) and logical 
operations. There is also a means of modifying instructions by using index 
registers. (See NAVORD 4l69.) An Encoder which translates from the ADES 
mathematical notation into the speed— cpde language has been constructed, 
that is, the Encoder will accept the formulation of a problem in ADES 
language as input and produce a program of speed— code instructions as output. 
This program can later be loaded into the speed-code computer together with 
data and the problem can be run. 

We shall refer to this particular Encoder as Model I. It was construc- 
ted primarily for experimental purposes and has certain limitations which 
were imposed by insufficient storage. For example, it will accept only 
those formulations which can be written with variables of degree one at most. 
No auxiliary f-equations (see NAVORD 4209) are permitted. Only a special 
form of minimization is allowed, as will be explained more fully below. 
However, aside from these restrictions, this Encoder contains most of the 
essential design features required of a device for translating ADES language 
into programs for any digital computer. Therefore, it should be of interest 
even to those computer groups which do not have a 650 calculator. 

The general logical design is given in NAVORD Report 44*11 . In the 
present report, we give the details of the construction of the Model I 
Encoder, listing the 650 instructions used. This should serve as an illus- 
tration of how an actual Encoder can be synthesized with a digital computer. 
Further, many of the techniques should be adaptable to similar machines. 

II. General Description of Model I 

To avoid confusion with the speed— code computer, we shall refer to the 
translating subroutines of the Encoder as "schemata". These schemata are 
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ccwiposed of basic 650 instructions, punched on IBM cards, 6 instructions 
per card. There are approximately 3500 instructions in all. Since the 
capacity of the 650 drum is only 2000 words, and tapes were not available, 
the schemata cards were arranged to be loaded in phases . 

The ADES formulation of a problem is likewise punched on IBM cards. 
Each alphabetical symbol in the formulation consists of a letter and a 
two-digit subscript, and occupies a three-column field; e.g., a-^ is punched 

in the card as a32. There are 10 fields per card. Numerical symbols are 
also permitted, but these are limited to 3-digit positive integers. 
Symbols are punched in the cards in the order in which they are written in 
the formulation. The formulation cards must therefore be in order. Model I 
will accept formulations containing up to 600 symbols. 

The cards containing the schemata are divided into three decks. In the 
translation process deck 1 is read first and is followed by the formulation 
deck. The instructions in deck 1 do a preliminary translation. The main 
translation is done by decks 2 and 3, which are read alternately into the 
630 in phases. This phasing is necessitated by the limited storage. Each 
equation in the formulation requires one pass of decks 2 and 3. These decks 
are recycled until the last equation is translated. 

As the translation proceeds, the speed— code program is punched out on 
cards, five instructions per card. This program deck, together with data 
cards for the problem, can be loaded into the computer at some later time. 
The problem will be run in the speed-code system. In problems which 
require library subroutines, special cards are punched out by the Encoder. 
Before computation, these special cards are used in conjunction with a 
compiling system to obtain a library program which is added to the main 
program deck. 

The allocation of storage for the program and data in the computer is 
performed by the Encoder and is as follows: All data is loaded into 
storage in a block starting with storage number 0600. Immediately follow- 
ing the data, the program of speed instructions is stored. Starting from 
storage 1999 and working backward, storage is allocated for intermediate 
results. If there is an overlap, the Encoder will stop and give an alarm. 
Addresses in the computer will be denoted by Greek letters ] e.g., o a m 
is the initial address assigned to the data for a m . 

The allocation of storage in the Encoder requires some explanation. 
The formulation is read into storages 1600-1899. Each symbol occupies a 
half-storage, which we shall call a "cell". The location of a cell is 
called a "cell number". The cell number, 8XXX, designates the left half of 
storage 1XXX. The cell number, 9XXX, designates the right half of storage 
1XXX - 1^ e.g., 860^ designates the left half of 160^ and 9605 designates 
the right half of 1604. Certain tables compiled by the Encoder are also 
stored in cells. The number of the cell containing a symbol is denoted by 
n W" followed by the symbol ', e.g.,#r , denotes the number of the cell 
which contains r 01. 
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One of the most frequent operations performed in the Encoder is 
scanning of the formulation and the tables. This is accomplished by two 
subschema, the "Scan Right" and "Scan Left" subschema. Scan Right works 
with two standard registers, S and Sc. S occupies all of storage 01^0 and 
Sc occupies storage 0109. Sc contains a cell number, while S contains the 
contents of that cell. The operation, Scan Right, causes the cell number 
in Sc to advance by 1 and the contents of this new cell are placed in S. 
Thus, if (Sc) = 8601, then after a Scan Right, (Sc) = 9602 and the contents 
of 9602 (the right half of storage 1601) are placed in S. If (Sc) = 9602, 
then after a Scan Right, (Sc) = 8602. The following exception should be 
noted. A cell which contains zero is a "spacer" cell. Spacer cells are 
automatically skipped over by the Scan Right operation. Scan Left operates 
similarly. 



III. Summary Description of Schemata 

Let us assume that deck 1 and the formulation deck have been read on to 
the drum (see section IV). Deck 1 contains the schema known as the Initial 
Addressor (I. A. ). 

The Initial Addressor comprises two subschema, a scan of the Computer 
Table and four scans of the equations in a formulation. 

Starting at the first cell of the Computer Table (8600 = left half oi* 
l6O0), I. A. begins to scan right. For each independent variable, a , in 

the Computer Table, it computes an initial address, ota ... A table of 

roll 

entries of the form mn ota^OOOO is compiled in storages 0350-0389. At the 
same time the degree of a^ is determined. The degree and the address of 

a _ are recorded in storage 1150 + mn as follows : 0000 ota 9 if the degree 

mn inn ^ 

is zero, lQOOOaa 6 if the degree is one. The cell to the right of a 

mn °^ mn 

initially contains the integer which specifies the number of data for a . 

This integer is replaced by oa__9. In all of the above, "aa " stands for 

mn ' mn 

a four-digit address. 

When the colon which marks the end of the Computer Table is reached, 
the table of mnaOOOO entries is punched out one per card. These entries 
are to be loaded into the computer which will use them to compose instruc- 
tions to read in the data for computation. 

I. A. continues scanning right from the colon to the comma, which marks 
the end of the Computer Table. For each q^ that it encounters, an address, 

uqL. is assigned as an index register in the computer, q^ is replaced 
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by jiQ^.7 and 00000 nq7 is recorded in 1200 + mn. For an integer-valued 

a , 00000 \xq. 4 Is recorded In 1150 + mn, where q. is the index associated 

with a in the Computer Table, 
mn 

When the comma after the Computer Table is reached, its cell number is 

recorded in P (=1500). Control is then sent to the First Scan Subschema 

(F.S.)« F.S. scans the formulation for equal signs. For each equal sign, 

it scans left to determine whether an r or a b is being defined. If r _ is 

mn 

being defined, it records 00000 r 3 in 1250 + mn. If b is being 

' mn mn 

defined, it records 00000 b 2 in 1300 + mn. 

* mn 

The Second Scan Subschema then scans the formulation for a*s, b*s, f 's, 
r*s and numerical constants on the right side of each equation, b is 

replaced by the contents of 1300 + mn, f is replaced by the absolute 

value of the contents of 1400 + mn. (in 1400 + mn is a constant which will 
be used later to distinguish the f's.) r is replaced by the contents of 

1250 + mn. Numerical constants are changed to floating-point numbers, are 
assigned computer addresses, and are then punched out on cards to be loaded 
into the computer later as data. 

The Third Scan Subschema scans for q's in the equations and treats 
them as explained in the processing of the Computer Table. 

The Fourth Scan Subschema scans the Computer Table for r's and replaces 

each r that it finds by the contents of 1250 + mn. 
ran 

After the fourth scan has been completed, constants initializing decks 
2 and 3 ere read in. From this point on, decks 2 and 3 will be read in 
alternately. The schemata contained in decks 2 and 3 ere sometimes referred 
to as phases 2a and 2b respectively. 

Let us assume that deck 2 has been read on to the drum. Deck 2 consists 
of the b-schema, the q-6chema, the Addressor, the r-schema, and the 
Recursion schema. The operation of these schemata can best be understood 
by reading Report 4411. However, in Model I, certain features had to be 
eliminated to meet storage limitations. For example, special library f's 
are not permitted. Vector equations are excluded, as are vector recursions 
in which all the b*s are the same. Likewise, double recursions are excluded, 
In Model I, any of these formulations will cause the b-schema to give an 
error indication. However, the coding is such that if sufficient storage 
were available, the instructions for translating these special formulations 
could easily be appended. It should be pointed out that certain branching 
situations are not permitted since the branch schema has been oversimplified. 
This is taken into account in Report 4411. 
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Minimization in Model I is limited to the definition of an r-nsymbol 
used as the upper bound in a quantification. Thus, the table look-up aspect 
is not provided for. 

Variables of degree 2 (i.e. matrices) are not permitted. However, 
many of the instructions for translating such variables are included in 
Model I. Again, if more storage were available, the necessary instructions 
could easily be appended. 

When phase 2a has finished processing the right side of an equation, it 
will call for a read— in of deck 3- Deck 3 contains the instructions for the 
Interpreter . 

Once again, for a description of the over-all design of the Interpreter, 
we refer to Report 4411. However, some of the techniques in Model I are 
worth describing in some detail. 

For example, let us assume that the Encoder is programming the equation, 
b 01 = f 02 a 01 a 02 ^ ' 

that is, b 01 = » bl + a tt> (< te ) - 

When the Interpreter starts to operate, the a's will have been replaced 
by addresses (say 1987 for a m and I986 for «w>)» An index register will 

have been set up for q^, and q^ will have been replaced by the address of 

this index register, say 1989* The function, f^, will have been replaced 

by 14021, where 1402 is the location of the library schema for f__. Thus, 

the equation will look as follows to the Interpreter: 

02018 00000 00000 05008 14021 19879 19866 19899 07018. 

Starting with the comma (07018), the Interpreter scans left for f *s. 
(See instructions in 0300-0310 on page 1 I. of list.) An f is identified by 
a low-order 'l*. When 14021 is found, the degree of f^ is obtained by 

referring to register 1402. In this case, the degree is 2. Therefore, the 
Interpreter scans right for two operands. Operands are identified by either 
a '9* or a '6* in the low-order position. In this case, the first operand 
is 19879* The low-order *9' indicates that this operand does not require 
an index register (see page 41). Hence, 00 1987 0000 is stored in register 
1 and zero is stored in M.. The second operand is I9866. The low-order 



•6' indicates that an index register must be used. Hence, 00 1986 0000 is 
placed in register 0_ and 

places 00 I989 0000 in Mg. 



placed in register 0- and the Interpreter scans right to obtain 19899. It 
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The Interpreter also scans left from f Q „ to determine whether the 

result of this operation will have to be stored temporarily (see pages 21, 
31). In this case, no temporary storing is required. 

The Interpreter is now ready to compose instructions. It goes to 
Li(tQp), which is 1402, and obtains the cell number of the library subschema 

(see p. 71) for f_p. This subschema places the operation code for "add" in 

register OP. (The operation code is 65 0225 in the speed-code 

system.) It then tests M-. Since (*L )=0, it is ignored. It then composes 

the instruction "insert 1987", which is coded as 60 1987 0180. Then VL is 

tested. Since (M_)=0, the next instruction composed is "Modify 1989", 

which is coded as 65 1989 0093. Then the instruction, "Add I986", is com- 
posed by combining the contents of 2 and OP to form 65 I986 0225. This 

completes the computational part of the program. 

The Interpreter then goes into an end— procedure which composes instruc- 
tions for storing the result (see p. 91 ff«)> for punching the result, for 
closing loops etc. 



IV. Input-Output 

To start the Model I Encoder, the decks are placed in the hopper as 
described in section II, 70 0007 0088 + is set on the 8000 switches, and 
the Computer Reset and Program Start buttons are pressed. This causes the 
first load card to be read into storages 1-8. The next instruction is 
taken from storage T. This instruction starts a "clear" routine that stores 
zero in storages 0010 through 1999* Control then goes to 8000. 

Six more load cards are read, placing the 'ADES Read— in' instructions 
on the drum. Control goes to this routine which reads in Deck 1, containing 
six ADES instructions per card, until another load card transfers control to 
the "Formulation Read— in" . 

The formulation is then read in, ten symbols per card, until a load 
card transfers control to the first instruction of deck 1. After deck 1 
completes its preliminary translation, control is sent again to the 'ADES 
Read— in' instructions and deck 2 is read into the storages previously 
occupied by deck 1. A load card then starts the operation of phase 2a. 
When phase 2a is completed, it places the proper initial instruction for 
phase 2b in storage 002^ and then calls for a read. The instructions for 
phase 2b are read in with Deck 3 until a load card is reached. This starts 
phase 2b at the instruction in 002^. When phase 2b is completed, it, in 
turn, sets up the proper instruction for phase 2a in storage 002^ and calls 
for a read. Deck 2 is read in again and once more a load card sends control 



NAVORD Report 4412 

to 0024, whence operation of phase 2a is resumed. In this way, decks 2 and 
5 are used alternately for each equation until the last equation is trans- 
lated. 

APES Instruction Cards . 

The hoard wiring used for the read— in of the ABES instruction decks is 
as follows : 

(1) Wire from First Reading column 4 to Digit Selector common and 
then from the '8' exit huh to Load Entry A huh. Thus, we must put an *8» 
punch in column 4 of every ADES instruction card to identify it. 

(2) Wire from Read Card A hubs 17-20 to Word 2 positions 4-1 of storage 
entry A. In an ADES instruction card, columns 17-20 contain the location in 
which the first instruction of that card is to he stored (see list of ADES 
instructions). The remaining five instructions are stored in sequence. 
Wire from word size Emitter 4 to Word 2 of A. 

(5) Wire from Read Card A hubs 7-15 to Word 5 positions 10-2. Split 
wire from Read Card A hub 16 to Word 5, position 1 and to the sign position. 
Card columns 7— 16 contain the first instruction word on that card. 

(4) Wire from Read Card A hubs 22-31 to Word 6. 

Wire from Read card A hub 21 to the sign position of Word 6. Card 
columns 21—31 contain the second instruction word. 

(5) Wire from Read Card A hubs 34-43 to Word 7 and from hub 33 to the 
sign position of Word 7. Card columns 33-43 contain the third instruction 
word. 

(6) S i m i larly, the 4th, 5th, and 6th instruction cards, which are in 
card columns 45-55, 57-67, and 69-79, respectively, are wired to Words 8, 9, 
and 10. 

(7) Wire from Word Size Emitter 10 to Words 5-10 of A. Wire from Word 
Size Emitter to Words 1, 3, and 4 of A. 

Formulation Cards 

A formulation card contains ten-3-column fields. Each field contains 
either (l) an alphabetic symbol, consisting of a letter and the two digits 
of its subscript or (2) a numerical constant, consisting of three digits. 
The letter in an alphabetic symbol is punched as an alphabetic character. 
Hence, this column will contain a digit punch and a "high" punch. A formu- 
lation card is identified by a »9' punch in column 4. The wiring for reading 
in formulation cards is as follows: 
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(1) Wire from Read Card C, 1-3, to Storage Entry C, 10-8 of Word 1. 
Card columns 1-3 contain the problem number. 

(2) Wire from Read Card C, 24-26 to positions 4-2 of Word 1 of Storage 
Entry C. Split wire column 24 to Read Column Split Common, and from the 
12-x exit hub to a Pilot Selector IPU. Wire from Read Impulse 8 to Transfer 
Hub of Pilot Selector. Wire from Read Impulse 9 to Normal Hub of Pilot 
Selector. Wire from Common Hub of Pilot Selector to position 1 of Word 1 of 
Entry C. / x v 

Card columns 24-26 contain the first symbol, of the fornrn'n.ng where 

TO V 

n or (n ) is a letter, or simply n n .n when the first symbol is a number. 

Thus, an 8 is emitted into position 1 if the symbol is alphabetic, a 9 if it 
is numeric. 

(3) Split wire column 26 to the sign position of word 1. The entry, 
000, means that the field is ignored. 

(4) Wire Read Impulse Zero to remaining positions of Word 1. Wire 
from Word Size Emitter 10 to W.l. of C. 

(5) Wire Words 2—10 similarly. Columns 30-32 are wired to Word 2, 
columns 36-38 to Word 3, eolumns 42-44 to Word 4, columns 48-50 to Word 5, 
columns 54— 56 to Word 6, columns 60-62 to Word 7, columns 66-68 to Word 8, 
columns 72—74 to Word 9, and columns 78-80 to Word 10. These columns 
contain the remaining nine symbols on the card. 

Output . 

The output of the Encoder consists of 650 instructions, program 
constants, any data which was contained in the formulation, and cards for 
use with a subroutine compiling system. 

The punching of instructions is controlled by the "Store-Punch Sub- 
routine" in Model I (see list of instructions below). Instructions are 
composed as the Encoder translates. When five instructions have been 
recorded in storages 0027-0031, they are punched simultaneously into one 
card. At the same time, the address which specifies the assigned location 
of the first instruction is punched into the card. This address will be 
used later by the 650 Speed-<:ode Computer to store the five instructions in 
the proper storages of the computer. 
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The punching of constants is done by the "Data—Punch" subroutine in 
Model I. Constants are punched one per card. The address assigned to each 
constant is also punched in the card. When the problem is to be run on the 
computer, this address will be used by a read routine in the computer to 
store the constant in the proper storage. 

The cards for the compiler will not be described here. Suffice it to 
say that they contain information for compiling subroutines such as "cosine", 
"arcsine", etc. into the main program. 

The wiring of the board for punching is as follows: 

The punching of instructions and program constants by Model I is done 
from punch level B. The card punched is a Speed-Code type , 5« card, (see 
NAVORD 4169) which contains six 10-digit 650 words. 

(1) Position 10 of the control information hub is wired to the punch 
B hub. Thus, an 8 in position 10 of word 10 will select punch level B. 

(2) The instructions produced by Model I are punched, 5 instructions 
per card as follows: Word 1 is wired to card columns 22-31 and the sign to 
card column 21. 

Word 2 is wired to c.c. 3^1 — M-5, the sign to c.c. 33 
Word 3 is wired to c.c. 46—55, the sign to c.c. V? 
Word k is wired to c.c. 58-67, the sign to c.c. 57 
Word 5 is wired to c.c. 70-79, the sign to c.c. 69 

(3) Word 6, which may be used for identification, is wired to c.c .7-16. 

(k) Positions 10,9, and 8 of Word 7 contain the problem number and are 
wired to c.c. 1,2, and 3. Positions 7,6, and 5 of Word 7 contain zeros and 
are wired to c.c. 32,^,56,68, and 80. The remaining positions of Word 7 
are not punched. 

(5) The 650 address which specifies the location of the first word 
punched in the card is located in positions 8-5 of word 8. These positions 
are wired to c.c. 17-20. 

(6) Words 9 and 10 and the remaining positions of Word 8 are not wired. 

(7) Digit Selector Punch 5 is wired to c.c. k, Digit Selector Punch 
to c.c. 5> and Digit Selector Punch 1 to c.c. 6. 



V. Operating Experience with Model I 

Although Model I has not been put into regular operation, several 
problems have been programmed by it for experimental purposes. These 
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problems are of a comparatively simple nature, since each was chosen to test 
a specific part of the Encoder. Three of them are presented here to illus- 
trate the actual physical operation of Model I rather than as examples of 
what ADES can do. Each problem was formulated, punched on cards, and run 
through the Encoder. The Encoder produced a deck of program cards which 
were then loaded into the computer together with data cards . The computa — 
tion was carried out on the computer, result cards were punched and the 
results printed and checked. 

Example 1. This problem illustrates quantification . We wish to compute 

W(qT) = a,(q,) + ao^i) f ° r a11 <!]. from to h inclusive, store the results 

in sequence, and punch them out one per card in the first card field. The 
ADES formulation is as follows: 

ADES FORMULATION 
a 01 5 a 02 5 P 02 r 01 5 P 01 

b oo e oo f oo b oi p oi 

P 03 ° V k r 01 d ll b 01 e 00 f 02 a 01 %1 a 02 % P 01 

r oi e oo f oi ^l p oi 

Remarks. P-, denotes a comma. P^ denotes a colon. P denotes the 

quantifier, "for all", e denotes an ordinary equal sign. The first line 

00 
constitutes the Computer Table. It says that a Q1 will have five data, a^ 

will have five data, and that r , will have five values to control storing 

of b . The Second line is the Master Phase Equation, which indicates that 

b is to be programmed first. The third line is the equation for b „. 

Here, the left side of the equation contains the quantification, 

"P q ()1 k" meaning "for all ^ %±— 1 *"* I-fc also c°nt ains d^, which 

indicates that the results are to be punched in the first field of a card, 
one per card. Finally, the left side contains r ., which means that suc- 
cessive values of b are to be stored in successive storages. r Q1 is 

defined by the fourth line as being equal to q^. The right side of the 
equation for b 01 contains the formula for b Q1 , with "f 02 " denoting "+". 

The formulation is punched on four cards as follows: 
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Card Field 














1 


2 


3 


4 „ 


5 


6 


7 


8 


9 


10 


Card li 


aOl 


005 


a02 


005 


p02 


rOl 


005 


pOl 


bOO 


eOO 


Card 2: 


fOO 


bOl 


pOl 


P03 


000 


qOl 


oo4 


rOl 


dll 


bOl 


Card 3: 


eOO 


f02 


aOl 


qOl 


a02 


qOl 


pOl 


rOl 


eOO 


fOl 


Card 4: 


qOl 


pOl 


008 


00$ 


00$ 


00$ 


00$ 


008 


ood 


00$ 



The fields containing "000" with the "high" x punch are ignored by the 
read routine. The formulation is read into storages l600-l6l8 and looks as 
follows after read— in: 



Storage 



Contents 



1600 


01018 


00059 


1601 


01028 


00059 


1602 


07028 


09018 


1603 


00059 


07018 


1604 


02008 


00000 


1605 


00000 


05008 


1606 


06008 


02018 


1607 


07018 


07038 


1608 


00009 


08018 


1609 


000^9 


09018 


1610 


04ll8 


02018 


1611 


00000 


00000 


1612 


05008 


06028 


1613 


01018 


08018 


1614 


01028 


08018 


1615 


07018 


09018 


1616 


00000 


00000 


1617 


05008 


06018 


1618 


08018 


07018 



Example 2. This problem illustrates a simple scalar recursion. We wish to 
compute the sum of all ao^^)* where ° %i 5, and print the final 
result. Denoting the sum by b Q1 , and observing that ^(0^+ 1 )" b oi^ q 01^ + 
a (%-,)> we write the ADES formulation as follows: 



6 P. 



V 6 P 02 ^1 ~ *01 



ADES FORMULATION 
6 P„ 



d ll P 03 ° ^1 5 V e ll f 02 b 01 %1 V % P 01 f 01 ° P 01 



^oo e oo f oo b oi P 01 



The formulation is punched on three cards as follows: 
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1 


2 


3 


Card Field 
k 5 6 


7 


8 


9 


10 


Card 1: 
Card 2: 


aOl 
005 


006 
bOX 


p02 
ell 


qOl 
f02 


006 
bOl 


pOl 
qOl 


dll 
aOl 


P03 
qOl 


000 
pOl 


qpl 
fOl 


Card 5: 


000 


pOl 


bOO 


eOO 


fOO 


bOl 


pOl 


00$ 


00$ 


oo5 



The 650 speed-^ode program produced by the Encoder is as follows 
(Operations are listed by name for explanatory purposes.) 



Location of 






Instruction 


Operation 


0606 


Insert 


Positive 


0607 


Store 




0608 


Insert 


Positive 


0609 


Store 




0610 


Insert 


Positive 


0611 


Add 




0612 


Modulo 




0613 


Store 




06l4 


Modify 




O615 


Insert 


Positive 


0616 


Modify 




0617 


Add 




0618 


Modify 




06l9 


Store 




0620 


Increment Modifier 


0621 


Modify 




0622 


Insert 


Positive 


0625 


Store 




0624 


Punch 




0625 


Store 




0626 


Ho Operation 


0627 


No Operation 


0628 


Stop 





Compute 
b x (0)=0 

Lower bound 

of ^01 



(q^+ljmod 2 



a i^ 9 l* +b l( q l* 



Address Remarks 

1985 
1963 

1985 
1989 

1989 

0002 
1982 
1981 
1983 
1989 

0600 

1982 

1983 

1989 

1982 

1983 Punch out 

0327 final value 

0015 

1980 

0000 

0000 

1111 

Remarks: The numerical value of the index, o^,, is stored in 1989. The 

instruction, "Modify 1989", causes the next instruction, "Add 0600", to be 
executed as if the contents of 1989 had been added to the address, 06OOJ 
i.e. it makes 1989 an index register. The instruction, "Modulo 0002" 
reduces the number in the result register to the residue modulo 2. The 
instruction "increment Modifier" adds 1 to the contents of 1989 and tests to 
see if q fll has reached its upper bound. If not, control is transferred back 

to 06lk, where the loop begins. The Encoder has assigned computer storages 
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as follows: q^ in 1989; ^(^J in 1985 J the constant, zero, in 1985; 
a^ in 0600-O605. 

Example 5. This problem illustrates vector recursion. We wish to integrate 
an ordinary first-order differential equation of the form, 

with initial values x .y Q . We shall use a "predictor-corrector" method 
similar to Adams' method to step ahead and a Runge-Kutta formula to get 
started. A numerical statement might look as follows: 

For 1 ^ n £ 20, x n+] = x q + (n+l)h, x Q =a ;L , * 1 =& 1 + h 

y A + i = ^ (x n + i' ^n+i^ K ■ <K x o»y ) ' y l = ^VV' 

v n + l = 2 < y *n + l + *#*' v o = °> \ " 2 < y i + ^> 
y n + l = y n + ^/^(ViA+l)' y o = ^l = V 
r n + l = y n + l " W r o " °> r l = ° 

u n + l = y n - y n-l> 

y n + l = y n + 2(y A - y n-i> h + v n ~ \d» 

b 6 = y o + (k l + 2k a + 2k 5 + V /6f 

*i = h WvV' 

kg = h (f(x Q + h/2, y Q + ^/a), 

k 5 = h( * (x o +h/2 ' y o + k a/ 2 ^ 

H = h ^ (x o + h ' y o + V' ' 

The last five equations will be recognized as the Runge-Kutta method. 

y , denotes the predicted value of y , . v . and u_ +1 are intermediate 

results . 

To obtain the corresponding ADES formulation, we shall use the follow- 
ing notation: 
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x Q = & ± , x = b ± , y = t> 2 , y 1 - by y = \, r = b^ h = Sg, y Q = a^> ~ ~ ^i> 

k l = V k 2 = V S = V ^ = b 10' X+h/2 = b ll' y+k i/ 2 ■ b l2' y+ V 2=1 l5' 

y+k, = b . , v = b.. , u = b..,-, (} = f,-,. To make it somewhat easier to read, 

we shall write the formulation using the conventional symbols for punctua- 
tion, equal signs, and arithmetic operations. Thus, we shall write, "," and 
punch "P 01 " on the card. We shall write "=" and punch "e oo " ) write "+" and 

punch "fog" ,* write "-" and punch "f Q ^" ,* write "/ " and punch "f^" ,* 

write "." and punch "f Qk " - 

ADES FORMULATION 

a 01 X a 02 L a 03 1 : %1 21 ' 

r 01 = + X *Q1 > 





r 02 " " V X 


t 












b oo = f oo b oi' 












p 03 


1 *01 20 b 01 d 10 = 31 + 


b oi 


Vte 


!' f 0l a 01' 


, + 


ft 01 a 02' 




b 03 = 31 f 51 b 01 r 01 b 02' 


f Sl a 01 a 03' 


f 51 b 01 


b 15 


= 31 " 2 + b 03 r 01 * 2 b 03 %1 *02' f 01 X > 


••2 


+ b 1 
03 


V 


d 20 = 31 + V %1 ~ b 15 r 01 b l6 5 ' 


f oi %y 


f oi 


b 06' 


b 05 


Si = 31 ~ b 02 V r 01' 


f oi 


>V 


o , ) 






b l6 


= - b 04 ^1 V r 02 ' 












b 02 


= + * ~ b 03 %1 b 03 r 02 


- 2 


a 02 +t 


to % - b 15 


%1 ' 5 ' 


b 06 


= +a 5 / +b 07 + * 2+1 


b 08 b 09 b 10 


6 , 






b 0T 


• b 03 ° S 02 ' 












b 08 


= ' f 51 b ll b 12 S 02, 












b ll 


= + a i/ a 02 2 > 












b 12 


= + a 05 / b 07 2 > 












b 09 
b 13 


= ' f 5 l b ll b l3 *02' 
= + a 03/ b 08 2 > 




b io = 


* f 51 V 
+ a 03 b 09 


1 t 

> 


\k a 02 ' 



lb 06' 

* 2 b 03V 



J 16 



Ife 
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The above formulation is for an arbitrary function, f . f^ would have to 

be defined by an f-equation. Since Model I does not allow for f-equations, 
the formulation was tried for the specific function, (}(x,y) = x«y , i.e. 
we integrated y'=xy. The Encoder programmed the formulation correctly, 
producing 182 instructions. 
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A. PHASE 1 
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Page 1 of 1.0. 



Title - Initial Load Cards 



Came Loc. of 
from Inst . 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 


Word 1 


00 


0000 


0000 




2 


45 


0005 


8000 


8000 » (70 0007 0088) 


3 


21 


0010 


0004 




4 


16 


0006 


0002 




5 


15 


0008 


8002 


Card 1 Read into 


6 


21 


1999 


0004 


Storages 0001-0008 


7 


65 


0003 


0004 


This card clears storages 


8 


21 


2000 


0004 


OOIO-1999 


Word 7 


70 


1007 


9999 


Card 2 


Word 1 


00 


0000 


0000 


Card 3 


2 


67 


0001 


1003 


Reads into storages 1001-1008 


3 


15 


1004 


1005 


Sets up read-in routine 


1* 


2k 


0000 


1007 


For ADES constants l/card 


5 


69 


0002 


8002 


under control of C.C. 17-20 


6 


00 


0000 


0000 




7 


70 


0007 


1002 




8 


00 


0000 


0000 
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Title - Phase 0: The punched load cards 



Came Loc . of 
from Inst. 


Op. 
Code 


Data 
Address 


Instr . 
Address 


Word 1 


66 


0801 


0000 


2 


10 


0094 


0095 


3 


24 


0093 


0358 


k 


69 


0004 


8002 


5 


2k 


0094 


0356 


6 


11 


0099 


0097 


7 


70 


0357 


9000 


8 


2k 


0095 


0352 


Word 1 


66 


0801 


0001 


2 


69 


0353 


0354 


3 


69 


0010 


8002 


k 


24 


0099 


0355 


5 


70 


0007 


9001 


6 


69 


0006 


0008 


7 


69 


0002 


0003 


8 


69 


0004 


0005 


Word 1 


66 


0801 


0002 


2 


kk 


0098 


0087 


3 


2k 


0097 


0358 


4 


10 


0096 


8003 


5 


2k 


0098 


0356 


6 


69 


0011 


8002 


7 


69 


0002 


0003 


8 


2U 


0096 


0355 



Page 2 of 1.0. 

Notes 

These cards load in the 
ADES Read-In routine 

Card 1 Reads into 0001- 
0008 



Card 2 

Reads into 0351-0358 



Card 3 Reads into 0001-0008 
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Page 3 of 1.0. 



Title - Phase 0: The punched load cards 



Came Loc. of 
from Inst . 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Word 1 


66 


0501 


0003 


2 


15 


0091 


0095 


3 


21* 


0047 


0358 


4 


00 


0001 


0000 


5 


24 


0091 


0356 


6 


70 


0007 


0088 


7 


69 


0002 


0003 


8 


2k 


OO87 


0355 


Word 1 


66 


0501 


0004 


2 


67 


0002 


0089 


3 


2k 


0088 


0358 


4 


35 


0004 


0090 


5 


24 


OO89 


0356 


6 


69 


0049 


0092 


7 


69 


0002 


0003 


8 


2k 


0090 


0355 


Word 1 


66 


0501 


0005 


2 


24 


0000 


0047 


3 


24 


0049 


0358 


4 


22 


0049 


019Q 


5 


24 


0092 


0356 


6 


65 


8001 


0093 


7 


69 


0002 


0003 


8 


24 


0190 


OO87 



Notes 



Card 4 

Reads into 0001-0008 



Card 5 

Reads into 0001-0008 



Card 6 

Reads into 0001-0008 



I: Go to ADES Read In 
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Title - Read -in routine 

Came Loc. of Op. 
from Inst . Code 



NAVORD Report M*12 



Data Instr. 
Address Address 



0087 


70 


0007 


0088 


0088 


67 


0002 


0089 


0089 


35 


000U 


0090 


0090 


69 


00^9 


0092 


00i+9 


2k 


0000 


00^7 


0092 


22 


00^9 


0190 


0190 


65 


8001 


0093 


0093 


10 


00914- 


0095 


0094 


69 


0004 


8002 


0095 


11 


0099 


0097 


0099 


69 


0010 


8002 


0097 


kk 


0098 


0087 


0098 


10 


0096 


8003 


0096 


69 


0011 


8002 


8003 


69 


ooxx 


8002 


8002 


2k 


xxxx 


00J+7 


00U7 


15 


0091 


0095 


0091 


00 


0001 


0000 



Page k of 1.0. 

Notes 

This routine reads in the 
ADBS instructions 6/card 
under control of c.c. 17-20. 
It remains on the drum for 
all phases. 
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Page 5 of 1.0. 



Title - Formulation Read-In Schema 



Came Loc. of Op. 

from Inst. Code 

0350 70 

0351 69 

0352 = (60 

0353 24 

0355 65 

0356 20 

0357 20 

0358 60 

0359 46 

0360 46 

0361 35 

0362 30 

0363 11 

0364 (00 

0365 44 

0366 10 

0367 35 

0368 69 

0369 =. (00 



0370 
0371 
0372 
0373 
037^ 69 

0375 «* (00 

0376 24 

0377 65 

0378 16 

0380 - (60 

0381 45 



Data Instr. 
Address Address 



0007 
0352 
0001 
035^ 

0001 

0083 

0033 

8002 
0366 

0377 
0005 
0008 

0364 
0000 

0366 
0364 
0003 

0369 

0000 



0351 
0353 
0360) 

0355 

0356 

0357 
0358 

0360 
0395 
0361 
0362 
0363 
0365 

0005) 

0359 

0367 

0368 

0370 

0008) 

0009) 



91 0385 0371 
35 0005 0372 
21 0373 0374 
(temp. store for left half) 



0375 
0000 

0369 
0354 
0380 
0010 
0382 



0376 
0008) 

0377 

0378 

0381 

0360) 

0350 



Notes 



Initialize Storage Callout 

(0354 a storage for callout 
instr. ) 

MAR XX XXXXX -> 0033 for punch 
out of Program cards., OO83 for 
data cards 
initial Word -* WA 

If negative, skip to next word 
Truncate *9' in posit. 6. 
0. . .Oa. j nin2800 

Test for = 



9 initially- 9 z^store in left 
half 
8^store in right 
half 



Store left half temporarily 

Prepare for next rt.cell 
Prepare for next word 
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Page 6 of 1.0. 



Title - Formulation Read-In 



Came Loc . of 


Op. 


Data 


Instr. 


from Inst . 


Code 


Address 


Address 


0382 


15 


0383 


0384 


0383 


= (60 


0011 


0360) 


0384 


20 


0354 


8001 


8001 


= (60 


OOXX 


O36O) 


0385 


69 


0386 


0387 


0386 


= (00 


0000 


0009) 


0387 


24 


O369 


0388 


0388 


10 


0373 


0399 


0399 


(21 


xxxx 


0390) 


0390 


65 


0399 


0391 


0391 


15 


0392 


0393 


0392 


= (00 


0001 


0000 


0393 


20 


0399 


0394 


039^ 


21 


0373 


0377 


o4o8 01+09 


20 


0373 


0385 


0365 0395 


10 


0364 


0396 


0396 


35 


0003 


0397 


0397 


21 


0398 


0389 


0398 


(temp. 


store ) 




0389 


65 


0399 


0400 


0400 


15 


0U01 


0402 


0401 


= (00 


0000 


0013) 


0402 


10 


0373 


8002 


8002 


= (21 


XXXX 


0403) 


0403 


16 


0401 


0404 


0404 


15 


0392 


0405 


0405 


20 


0399 


0406 


o4o6 


44 


0408 


0407 


0408 


60 


0398 


0409 


0907 


60 


031$ 


o3ll 



Notes 

Prepare for next word 

call in next word 

Prepare for next left cell 

add left half to rt. half and 

store 
initially 21 1600 0390 finally 
21 (L(F) 0390 where L(F) = 
location of end of formulation 

Prepare for next ' store ' 

Store zero in 0373 

<t ti it t» 



Store = sign temporarily 



Store word with 1 or 2 blanks 

Prepare for next store: note 
that machine will stop automa- 
ically if formulation is too 
long. 

" = "—^U.A. 
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Page 7 of 1.0. 



Title - Load card to follow ADES formulation deck : completes read-in of 
formulation and sends control to phase 1. 



Notes 

Reads into 0001-0008 



Csuae Loc. 


of 


Op. 


Data 


Instr. 


from Inst , 


> 


Code 


Address 


Address 


Word 


1 


66 


0501 


0330 




2 


2k 


0390 


0003 




3 


60 


0373 


0001+ 




1+ 


^5 


0902 


090U 




5 


00 


0000 


0000 




6 


00 


0000 


0000 




7 


69 


0008 


0002 




8 


(69 


0250 


0251) 


0814-3 




65 


0399 


0841+ 


081+1+ 




16 


0392 


081+5 


081+5 




20 


0399 


0390 


0902 




10 


0903 


0399 


0903 




(00 


0000 


5008) 


090I+ 




65 


0903 


0905 


0905 




10 


0399 


0906 


0906 




10 


0907 


8003 


0907 




(00 


0000 


0600) 


8003 




21 


xxxx 


0990 


0990 




00 


0000 


0843 



Test for last half-word 



First instruction for initial 
addressor to be loaded into 
0390 

If last symbol was stored in 
art* cell decrease add. part 
of 0399 by 1 to get L(F). 
Go to 0390. I.A. 



Store «oo 8i S Q at end of 
t emulation 
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Page 1 of I. A. 



Title - Initial Addressor 








Came Loc . of 
from Inst . 


Op. 
Code 


Data 

Address 


Instr. 
Address 


Notes 


load card 0390 


69 


0250 


0251 




0250 


(00 


9600 


0000) 


#-1 of first cell in 


0251 


2k 


0109 


0252 


formulation — ^ Sc . 


0252 


69 


0253 


0100 


Scan rt. 


0253 


90 


0255 


025^ 


Test alphabetic 


025^ 


01 


025^ 


0000 


Error 


0255 


91 


0265 


0256 


Test for A 


0256 


97 


0258 


0257 


Test for P 


0257 


01 


0257 


0000 


Error 


0258 


16 


0259 


0260 




0259 


(00 


0000 


7028) 


Test for Po2. If Po2, — > Punch 


0260 


^5 


0257 


0325 


out o£ (a). I: Go to 5 I. A. 


0265 


69 


0266 


0100 


Scan rt. 


0266 


90 


0267 


0269 


Test for numeric 


0267 


01 


0267 


0000 


Error 


0269 


30 


0001 


0270 


Truncate '9' 


0270 


^5 


0272 


0271 


Zero test 


0271 


01 


0271 


0000 


Error 


0272 


16 


0273 


027*t 




0273 


(00 


0000 


0001) 




027^ 


^5 


0275 


0276 




0276 


69 


0302 


0306 


(deg=o) I: Go to h I. A. 


0275 


69 


0277 


0306 


(deg>o) I: Go to k I. A. 


0277 


69 


0278 


0100 


Scan rt 


0278 


90 


0280 


025^ 


Test alphabetic 
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Page 2 of I. A 


Title 


- Initial Addressor 








Came 
from 


Loc. of 
Inst. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 




0280 


91 


0281 


0287 


Test for P 




0281 


20 


0282 


0283 






0282 


(temp. j 


store Po2] 


) 






0283 


60 


0284 


0285 






0284 


(10 


0000 


0006) 


deg 1 tag 




0285 


69 


0286 


0303 


I: Go to 3 I.A. 




0286 


65 


0282 


0258 






0287 


91 


0288 


0290 


Test for A 




0288 


60 


0284 


0289 






0289 


69 


0265 


0303 


I: Go to 3 I. A. 




0290 


99 


0294 


0257 






0292 


60 


0293 


0301 






0293 


(00 


0000 


0005) 


deg 2 tag 




0294 


69 


0295 


0150 


Scan left to<x. 




0295 


65 


0109 


0297 


(Sc) -#(<*) 




0297 


30 


0003 


0299 






0299 


20 


0298 


0300 


Replace ot hy # («x ) 




0300 


69 


0292 


0100 


Scan rt to r 




0301 


69 


0252 


0303 


I: Go to 3 I.A. 


0276 


0302 


60 


0446 


0301 






0446 


(00 


0000 


0009) 


deg zero tag 
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Title 


- Initial 


Addressor: Degree Subsch 


Came 


Loc. of 


Op. 


Data 


Instr. 


from 


Inst. 


Code 


Address 


Address 




0303 


24 


O296 


0304 




0304 


10 


0298 


O67O P 




0305 


65 


0263 


0279 




0279 


15 


0264 


8002 




0264 


(10 


1050 


0672) 




8002 


(10 


1150+mn 


0672) 




O67O 


21 


0671 


0305 




0671 


(temp. 


store ) 






O672 


44 


0673 


0674 




0673 


01 


0673 


0000 




067^ 


15 


0675 


O676 




0675 


(10 


9999 


9624) 




O676 


10 


0671 


8002 




8002 


(21 


1150+mn 


0296) 



NAVORD Report 4412 

Page 3 of I.A- 



Notes 

100 000 #<^(A)5 for deg 2 
00 000«<(A)9 for deg 
1 0000<*(A)6 for deg 1 



Error 



28 



NAVORD Report 4412 

Page 4 of I.A. 



Title - IA : 2 Subschema and Compile ©<(a) Table 



Came 


Loc. of 


Op. 


Data 


Instr. 




from 


Inst. 


Code 


Address 


Address 


Notes 




0306 


24 


0296 


0307 






0296 


(exit) 








0307 


15 


0273 


0444 






0273 


(00 


0000 


0001) 


N(ai)— *-L.A. 




0308 


15 


0309 


0310 






0309 


(00 


0000 


6OOO) 


Initially. See 0311 




0310 


10 


8001 


0311 


A 




0311 


20 


0309 


0312 


00000 S N(ai) 0-*-0309 




0312 


21 


0298 


0313 


00000 «i (a k ) 0-»-0298 




0298 


(temp 


store ) 








0313 


69 


0314 


0150 


01 mn8 -^L. A. 




0314 


30 


0001 


0261 






0315 


35 


0001 


0316 






0316 


15 


0298 


0317 






0317 


35 


0003 


0318 






0318 


20 


(0350) 


0319 


mn(dt) 0000 — ^0350-0389 




0319 


65 


0318 


0320 






0320 


15 


0434 


0321 


increment 0318 




0321 


20 


0318 


0322 






0322 


69 


0443 


0100 


Scan rt. to orig. pos. 




0443 


6$ 


0298 


0445 


«-i->L.A. 




0445 


15 


0446 


0447 






0446 


(00 


0000 


0009) 






0447 


10 


0109 


0448 






0448 


69 


0296 


0200 


Replace N byo<9 




0444 


35 


0001 


0308 






0261 


35 


0004 


0262 






0262 


20 


0263 


0315 


for use in deg. subschei 




oa43 


( SroR£: ol^/*. 


Oooo ) 
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Page 5 of I. A. 

Title - I. A. Punch Out Instructions for Data Read Routine 



Came 
from 



021+9 

0291 



Loc . of 
Inst. 

0325 
0326 

0327 
0328 
0329 
0330 

0331 
0332 

0333 
033^ 
0335 
0336 
03^+6 

03^7 
03I+8 

031+9 
01+10 

01+11 

01+12 
01+13 
0l+ll+ 
01+15 
01+16 
01+17 
01+18 
01+19 
01+20 



Op. 
Code 

65 

35 

10 

(00 

69 

65 

20 

15 
20 

(66 

10 

(00 

69 

65 
16 

10 
(00 

69 

66 

15 
(20 

15 
20 

15 

10 

(00 

69 



Data 
Address 

0309 
0003 
0328 
031+3 
0330 
0309 
0391 
033^ 
0309 
0000 
0336 
0566 
031+7 
0391 
0I+3I+ 

01+10 
0551+ 
01+12 
0318 
01+11+ 
0350 
0309 
0391 
0334 
01+19 

0592 

01+21 



Instr . 
Address 

0326 

0333 
0291 
0000) 

0050 
0332 
0335 
0331 

021+9 

001+9) 

O3I+6 

0000) 

0050 

O3I+8 

031+9 

01+11 

0000) 

0050 

01+13 
01+15 

0319) 

01+16 

01+17 

01+18 

01+20 

0000) 

0050 



Notes 

(0309) = %+ 1. i.e. add.of 
1st storage after data 
(See 1+ IA) 1:60 to 6 I.A. 

Punch: Initilize -Sequencer Card 



I: SO to 6 I.A. 



Punch: 66 ( t, +1 )0Ql+9 -*0566 



Punch: 66 ( % )00l+9 — ?■ 055I+ 



(£,+!)- no. of entries = "%%. 



Punch: 66 (fj) 00I+9— >0592 
60 to 6 IA 
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Page 6 of IA 



Title - I. A. Punchout:°<(a) Table 



Came 


Loc. of 


Op. 


Data 


Instr. 




from 


Inst. 


Code 


Address 


Address 


Notes 




0421 


65 


(0350) 


0422 






0422 


10 


0391 


0423 


= 1? L , initially *> 

Punch: mnoCXXX)— "9 L 2 




0423 


69 


0424 


0050 




0424 


65 


0391 


0428 


00 *%i 0000 




0425 


16 


0309 


0426 


00 % +1 0000 




0426 


45 


0427 


0435 


I: 60 to 7 IA 




0427 


15 


0309 


0429 


% x +1 — *r 0391 




0428 


15 


0434 


0425 




0429 


20 


0391 


0430 






0430 


65 


0421 


0431 






0431 


15 


0434 


0432 


Increment 0421 




0432 


20 


0421 


0421 




0327 


0291 


15 


0433 


0329 


I: 60 to 5 I-A* 




0433 


(10 


0000 


0182) 


Sequencer instruction 




0434 


(00 


0001 


0000) 




0333 


0249 


20 


1504 


0327 


Initialize instruction ctr 
60 to 5 IA 




1506 


00 


1990 


0000 


Initialize Int. Stor. Ctr. 
by read-in of phase 1 




1505 


00 


1989 


0000 


Initialize^ ctr. "by 
read-in of phase 1 
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Title - I. A. Process Computer Table from : to 5 

Came Loc. of Op. Data Instr. 

from Inst. Code Address Address 

0435 69 0436 0100 

0^36 90 OU37 0254 

0437 91 O667 0438 

0438 98 0677 0439 

0439 99 0678 0440 

0440 97 0600 0257 

0441 69 0442 0100 

0442 98 0450 0449 

0449 01 0449 0000 

0450 69 0841 01/70 

0841 65 0488 0842 

0842 15 0323 8002 

0323 (60 1200 0324) 
8002 (60 1200+mn 0324) 

0324 11 0454 0665 

0454 (00 0000 0003) 

0665 20 0298 0666 

0666 69 0435 0303 

0677 69 0678 0470 

0678 69 0679 0100 

0667 30 0001 0668 

0668 35 ooo4 0669 

0669 20 0263 0441 

0679 90 0267 0435 

0600 69 0109 0601 

0601 24 1500 0456 



Notes 

Scan rt 

Test alph. Numeric terror 

Test for a 

Test for q 

Test for r 

Test for P_, i.e. end of table 

Scan rt. 

Test for q 

error 

I: G-0 to 

subscript of q mn 



00000 ^q)4 -^U.A 

Zero -»>0298 

60 to 3IA. J!q4->1150 + i. 

I:G0 to 8 IA 

Scan rt. 



#( y after computer table) 
Pr=1500. GO to 1 F.S. 
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Title - I. A. q - Subschema: Replace qmn ^ "q?" 



Came 
from 



Loc. of 
Inst. 

01+70 
0494 

0^95 
OU96 
01+98 
OU97 
0482 
8002 
0483 
0484 

0485 
0471 

0472 
0473 
0474 

0U75 
0476 
0477 
0^78 
0479 
0480 
0481 



Op. 
Code 

24 

16 

(00 

46 

01 

15 

(65 
(65 

45 

10 

69 

65 
15 

(00 
30 
10 
10 

(20 
69 
69 
65 
69 



Data 
Address 

0296 

0495 

0050 

0497 

0498 

0482 

1250 

1200+mn 

0484 

0109 

0296 

1505 

0473 

0000 

0003 

0488 

0477 
1200 
0479 
0480 
0140 
0494 



Instr. 
Address 

0481 

0496 

0000) 

0498 

0000 

8002 

0483) 

0483) 

0471 

0485 

0200 

0472 

0474 

7000) 

0475 

0476 

8003 

0478) 

oo4o 

0040 
0481 
0486 



Page 8 of IA 
Mq7 — *1200 + an 

Notes 



Error 



Mq7 -^#(4) 



8003-20 (1200+mn) 0478 

Decrement*^ ctr. 

Decrement^ ctr. 

qpn-vL.A. 

Extract subscript of qmn 

see 2 F.S. 
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Title - First Scan 



Came 
from 


Loc. of 
Inst. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 




0451 


69 


1500 


0452 


# (, after computer table) 




0452 


2k 


0109 


0453 


— »-Sc. 




0^53 


69 


0455 


0100 


Scan rt. 




0455 


95 


0499 


0467 


Test for =. . D Go to 3 FS 


0601,IA 


0456 


65 


0399 


Ol*57 


(0399) ■ 21 1XXX 0390 




0457 


16 


0458 


0459 


1XXX is loc. of last symbol (s) 




0458 


(20 


2000 


0390) 


of formulation. 




0k$9 


20 


0109 


0460 


009XXX -> Sb 




0460 


69 


0461 


0100 


Scan rt. 




0461 


91 


0462 


0464 


Test for comma 




0462 


69 


0109 


0463 






0463 


24 


1501 


01*51 


# (last comma) -+ P s = 1501 




0464 


69 


0465 


0100 


Scan rt. 




0465 


97 


0462 


0466 


Test for comma 




0ii66 


01 


0466 


0000 


Error 




0467 


65 


0109 


0468 






0468 


16 


1501 


0469 


Test Sc = P s 




0469 


h5 


0453 


0854 


I: Go to IS.S. 
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Title - Extract subscript of symbol in L.A. 



Came 
from 


Loc of 
Inst. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 




0487 


30 


0001 


0492 






0492 


35 


0008 


0489 






0489 


11 


8003 


0490 






0490 


30 


0004 


0491 


00 00mm 0000 


Start 


0486 


24 


0493 


0487 






0493 


(exit 




) 






0491 


20 


0488 


0493 






0488 


m (00 


OOon 


0000) 





L.A. 
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Page 3 of 9 FS 



Title - First 


Scan 








Came Loc. of 
from Inst . 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 


C499 


20 


0500 


0501 


= -/»L l /n 2 — »- 0500 


0500 


(temp 


store ) 






0501 


69 


0502 


0150 


Scan left 


0502 


96 


0630 


0503 


Test for f . D: Go to 9 F.S 


0503 


99 


0571 


0501*- 


Test for,n_. D: Go to 6 F.S 


0504 


92 


0506 


0908 


Test for b 


0505 


01 


0505 


0000 


Error 


0506 


69 


0507 


0486 


Extract subscript of "bum 


0507 


15 


0508 


8002 




0508 


(10 


1300 


0509) 




8002 


(10 


13mn 


0509) 




0509 


kk 


0519 


0510 - 


Zero test (1300 + mn) 


0510 


15 


0511 


0512 




0511 


(10 


0000 


0009) 




0512 


20 


0513 


051^ 




0513 


(20 


13xx 


0518) 


00000 # (bmn) 2 -^13 mn 


0511* 


65 


0109 


0515 




0515 


15 


0516 


0517 




0908 


9 k 


0501 


0505 


Test for d 
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Page 4 of 9 



Title - First Scan: Vector b 



Came 


Loc. of 


Op. 


Data 


Instr. 


Notes 


from 


Inst. 


Code 


Address 


Address 






0516 


m (00 


0000 


2000) 






0517 


30 


0003 


0513 




0513 


0518 


65 


01k) 


0551 


bmn->L.A. Go to 5 F.S. 


0509 


0519 


65 


0500 


0520 


* n^2 -*■ L.A. 




0520 


69 


0521 


0lt86 






0521 


16 


0522 


0523 






0522 


(00 


OOO9 


0000) 






0523 


1+5 


0524 


0533 


Test for vector 




0524 


16 


0525 


0526 






0525 


(00 


0022 


0000) 






0526 


45 


0527 


0553 


Test for vec. flee. (prec. lln 




0527 


16 


0528 


0529 






0528 


(00 


0010 


0000) 






0529 


45 


0530 


0553 


Test for vec. rec. (C.O.V. ) 




0530 


16 


0528 


0531 






0531 


45 


0532 


0553 


Test for vec. rec. (one line) 




0532 


01 


0532 


0000 


Error 




0533 


69 


0534 


0100 


Scan rt. 




0534 


95 


0543 


0535 


test for - 




0535 


97 


0536 


0533 


test for P 




0536 


16 


0537 


0538 






0537 


(00 


0000 


7048) 


test for Po4 




0538 


45 


0539 


0453 


I: Go to IF.S. 




0539 


65 


0109 


05UO 






05^0 


16 


1501 


0541 


Ps 




0541 


45 


0533 


0542 


Test for end of formulation 




0542 


01 


0542 


0000 


Error 




05^3 


69 


0544 


0150 






0544 


69 


0545 


0486 


Extract subscript of bmn 




0545 


16 


0547 


0548 


Compare with preceding subscr: 
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Title - First Scan: Vector b 



Came 


Loc. of 


Op. 


Data 


Instr . 


%T>» X. —. _ 


from 


Inst. 


Code 


Address 


Address 


Notes 




0546 


20 


05^7 


0552 






05^7 


(Store 


subscript 


; of b) 






0548 


^5 


05^9 


0550 






05^9 


01 


05^9 


0000 


Error 




0550 


69 


0533 


0100 






0551 


69 


0546 


0486 


Extract subscript of bmn 




0552 


69 


0909 


0100 


Scan rt. 


0531 


0553 


69 


055^ 


0150 


Scan left for » of first 




0554 


95 


0555 


0553 


eq. in vect. rec. 




0555 


69 


0556 


0150 


Scan left for P 




0556 


91 


0557 


0555 






0557 


16 


0558 


0559 






0558 


(00 


0000 


7038) 


Test for P03 




0559 


^5 


0560 


0561 






0560 


01 


0560 


0000 


Error 




0561 


69 


0562 


0150 






0562 


97 


0563 


0561 






0563 


16 


0564 


0565 






0564 


(00 


0000 


7018) 


Test for P01 




0565 


^5 


0566 


0567 






0566 


01 


0566 


0000 


Error 




0567 


69 


0568 


0100 


Scan rt. for first = 




0568 


95 


0569 


0567 


in vect. rec. 




0569 


69 


0570 


0100 


Scan rt. for second = 




0570 


95 


0543 


0569 


in vect. rec. D: Go to 4 F.S 




0909 


9 4 


0552 


0453 


Test for d. I: Go to 1 F.S. 
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Title - First scan: Double Recursion 

Notes 



Came 
from 


Loc. of 
Inst. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


0503 


0571 


69 


0572 . 


0150 




0572 


92 


0573 


0595 




0573 


69 


0574 


0486 




0574 


15 


0575 


8002 




0575 


(10 


1300 


0576) 




6002 


(10 


13mn 


0576) 




0576 


44 


0577 


0578 




0577 


01 


0577 


0000 




0578 


15 


0579 


0580 




0579 


(10 


0000 


0008) 




0580 


20 


0513 


0581 




0581 


65 


0109 


0582 




0582 


15 


0516 


0583 




0583 


30 


0003 


0513 




0513 


(20 


13nm 


058»*) 




0584 


69 


0552 


0100 



Scan left 

Test for b. I: Go to .7 F.S. 

Extract subscript of b 



Error 



# (bum) m (Sc) 



00000 # (bmn) 2 ;->-13hq 
Scan rt. to r. Go to 5 F.S. 
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Title - First Scan: ji-eq. 



Came Loc. of Op. 

from Inst . Code 

0572 0595 69 

0596 69 

0597 69 

0598 96 

0599 01 

0602 69 

0603 16 

0604 1+5 

0605 16 

0606 1*5 

0607 69 

0608 (65 

0609 24 

0610 69 

0611 69 

0612 69 

0613 16 

0614 46 

0615 15 

0616 (10 
8002 10 

0617 44 

0618 01 

0619 15 

0620 (09 

0621 20 

0622 65 

0623 15 

0624 (00 
0513 (20 



Data Instr. 
Address Address 



0596 

0597 

0598 

0602 

0599 

0603 

06^9 

0605 

0434 

0607 

0608 

0109 

0622 

0611 

0612 

0613 

0495 

0615 

0616 

1300 

1250+mn 

0618 

0618 

0620 

9999 

0513 

0109 

0624 

0000 

1250+mn 



0100 
0100 
0100 

0599 

0000 
0486 
0604 
0648 
0606 

0585 

0609 

0623) 

0610 

0150 

0150 

0486 

06l4 

0498 

8002 

0617) 

0617 

0619 

0000 

0621 

9935) 

0622 

0623 

0517 

3000) 

0552) 



Page 7 of 9 PS 



Notes 

Scan rt to r 

Scan rt, to = 

Scan rt to f 

Test for f 

Error 

Extract subscript of F 

Test for Fo2 = +. I: Go to 8 F.S. 

Test for F03 = -. I: Go to 8 F.S. 

set up 0622 

Scan left to a 
Scan left to rmn 
Extract sub. mi of r 

Test mn a 50. I: see 8 I. A. 



Error 

(0517) = 30 0003 0513 
00000 # (Rmn)3 -^-1250 + mn 
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Title - First Scan: simple r-eq. 



Came Loc. of 


Op. 


Data 


Instr. 


Notes 


from Inst. 


Code 


Address 


Address 




0585 


20 


0500 


O654 


Zero — >• 05CO 


0586 


90 


0587 


O656 


Test for numeric 


0587 


98 


0625 


0588 


Test for q 


0588 


69 


0607 


0150 


Scan left to f . Go to 7 ] 


0589 


69 


0590 


0100 


Scan rt 


0590 


98 


0592 


0591 


Test for q 


0591 


69 


O588 


0150 


Scan left to numeric or q 


0592 


69 


0593 


0100 


Scan rt 


0593 


97 


0650 


0594 


Test for P 


059^ 


01 


059^ 


0000 


Error 


0625 


69 


0626 


0100 


Scan rt from q 


0626 


90 


0591 


0659 


Test numeric 


0627 


69 


0628 


0609 


See 7 PS 


0628 


(66 


0109 


0629) 


For simple r, negative 


0629 


16 


0624 


0663 


— ^1250 + mn 


06*8 


69 


0652 


0653 




0650 


69 


0651 


0150 


Scan left to q (or numeric 


0651 


69 


0662 


0150 


Scan left to q (or numeric 


0652 


(10 


0000 


0000) 




0653 


2k 


0500 


0655 




065k 


69 


0587 


0100 


Scan rt from f o3 


0655 


69 


0586 


0100 


Scan rt from f o2 


0656 


35 


0005 


0657 




0657 


15 


0500 


0658 




0658 


20 


0500 


0589 


(0) xxx9 00000 -^0500 


0659 


35 


0005 


0660 




0660 


15 


0500 


0661 




0661 


20 


0500 


0592 




0662 


69 


O627 


0150 


1 


0663 


30 


0003 


0664 


Form - (0) xxx9 # (r) 3 


066* 


16 


0500 


0513 





FS 
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Title - First Scan: f -equation 



Came Loc. of 
from Inst. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 


0630 


69 


0631 


0486 


Extract subscript of f mn 


0631 


20 


0547 


0632 


Store mn 


0632 


15 


0633 


8002 




0633 


(65 


1400 


0634) 




8002 


(65 


l4mn 


0634) 




0634 


45 


0635 


0642 




0635 


46 


O636 


0637 




0636 


01 


O636 


0000 


Error 


0637 


69 


O638 


0100 


Scan rt to " = m^ing" 


0638 


69 


0639 


0486 


Extract subscript m^nig 


0639 


16 


0522 


0640 




0640 


45 


0641 


0453 


Test m])H2=09 


0641 


01 


0641 


0000 


Error 


0642 


65 


0109 


0643 


# f mn m (Sc) 


0643 


30 


0003 


0644 


00000 # (f mn) 1~>L.A. 


0644 


15 


0273 


0645 




0645 


10 


0547 


0646 




0646 


10 


06^7 


8003 




0647 


(20 


1400 


0552) 




8003 


(20 


l4mn 


0552) 




0649 


(00 


0002 


0000) 
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Title - Second Scan 



Came Loc. of 


Op. 


Data 


Instr. 


Notes 


from Inst . 


Code 


Address 


Address 


0680 


69 


0681 


0100 


Scan rt (init. from , after table) 


0681 


92 


0688 


0682 


Test for b 


0682 


96 


O698 


O683 


Test for f 


0683 


99 


0755 


0684 


Test for r 


0684 


91 


0760 


0762 


Test for a. I: Go to 4 S.S. 


0762 O685 


65 


0109 


0686 




0686 


16 


1501 


0687 


Test for end of f emulation 


0687 


45 


0680 


0805 


Go to T.S. 


0688 


69 


O689 


0100 


Scan rt 


0689 


95 


0680 


0690 


Test for ■ 


0690 


99 


O69I 


0910 


Test for r 


0691 


69 


O692 


0100 


Scan rt 


0692 


95 


0757 


0693 


Test for ». 


0693 


69 


0694 


0150 


Scan left to r 


0694 


69 


0695 


0150 


Scan left to b 


0695 


10 


O696 


0697 




0696 


(00 


1300 


0000) 


Location of b -table 


O697 


69 


0680 


0700 


Go to 2 S.S. 


0698 


69 


0699 


0100 


Scan rt from f 


0699 


95 


0680 


0752 


Test for - 


0752 


69 


0753 


0150 


Scan left to f 


0753 


10 


075^ 


0697 




075^ 


(00 


1400 


0000) 


Location of f-table 


0755 


69 


0756 


0100 


Scan rt from r 


0756 


95 


0680 


0757 


Test for - 


0757 


69 


0758 


0150 


Scan left to r 


0758 


10 


0759 


0697 




0759 


(00 


1250 


0000) 


Location of r-table 


0760 


10 


0761 


0697 




0761 


(00 


1150 


0000) 


Location of a -table 


0910 


9k 


0688 


0694 
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Title - Replace 


- alphabetic -symbo] 


. subschema 




Came Loc. of 


Op. 


Data 


Instr. 


Notes 


from Inst . 


Code 


Address 


Address 


WW vvU 


0700 


2k 


0500 


0701 




0500 


(exit 




) 




0701 


21 


0671 


0702 




0671 


(temp 


store loc. 


table) 




0702 


69 


0703 


0U86 


Extract subscript 


0703 


15 


0671 


07C& 




070U 


15 


0705 


8002 




0795 


(65 


0000 


0706) 




8002 


(65 


XXXX+mn 


0706) 


X3OO&.1150, 1250, 1300 or 1400 


0706 


*5 


0708 


0707 




0707 


01 


0707 


0000 


Error 


0708 


kS 


0714 


0709 




0709 


35 


0001 


0710 




0710 


kk 


0717 


0711 


Test for a of deg. 1 


0711 


30 


0001 


0712 




0712 


10 


0109 


0713 


Replace symbol 


0713 


69 


0500 


0200 


By table entry 


071^ 


35 


0005 


0715 


Truncate high order 5 digits 


0715 


67 


8002 


0716 


Change - to + (simple r) 


0716 


30 


0005 


0712 




0717 


20 


0671 


0718 


Store: + 0000o<(a)60 


0718 


69 


0719 


0100 


Scan rt from A mn 


0719 


99 


0722 


0720 


Test for r 


0720 


69 


0721 


0150 


Scan left 


0721 


65 


O67I 


0711 




0722 


69 


0723 


0486 


Extract subscript of r i j 


0723 


15 


0724 


8002 


072^ 


(65 


1250 


0725) 




8002 


(65 


1250+ij 


0725) 





kk 
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Title - S.S. Replace-alphabetic-symbol subschema 



Page 3 of 5 SS 



Came Loc. of 


Op. 


Data 


Instr. 




from Inst. 


Code 


Address Address 


Notes 


0725 


46 


0726 


0720 




0726 


35 


0001 


0727 


-(0) jxXX9(#r eq)30 


0727 


44 


0728 


0729 


0=fo3 , 12fo2 


0728 


67 


8002 


0729 




0729 


35 


0003 


0730 




0730 


21 


0282 


0731 




0282 


(temp. 


store 


±0 XXX) 




0731 


69 


0109 


0732 




0732 


24 


1512 


0733 


# rij-^Sc, 


0733 


67 


8002 


0734 


9(#r eq) 3 0000 


0734 


30 


0001 


0735 




0735 


69 


8003 


0736 


-*- distributor 


0736 


22 


0109 


0737 


#(r eq) ~v Sc 


0737 


69 


0738 


0100 


Scan rt 


0738 


98 


0739 


0737 


Test for q 


0739 


10 


1512 


0741 


#(rij) — >■ U.A. c 


07IK) 


69 


0742 


0200 


Store q in #(rij) 


07^1 


21 


0109 


07^0 


Sc, -*■ Sc. 


0742 


69 


0743 


0150 


Scan left to a 


07^3 


65 


0282 


0744 


± XXX (numeric) 


0744 


35 


0002 


0745 




07^5 


15 


0671 


07^6 


0000 («< ± XXX)60 


07^6 


46 


07^7 


0748 




07U7 


01 


0747 


0000 


Error 


0748 


30 


0001 


0749 




07U9 


10 


0109 


0750 


# (Amn) 


0750 


69 


0751 


0200 


(* ±N)6 -*-#(Amn) 


0751 


69 


0500 


0100 


Scan rt to q (replac 



q in L-A. 



45 



NAVORD Report 4412 
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Title - S.S. Replace numerical constants 



Came Loc. of 


Op. 


Data 


Instr. 


Notes 


from Inst . 


Code 


Address 


Address 




0684 0762 


90 


O685 


0911 


Test numeric 


0911 


69 


0912 


0913 




0912 


(65 


1099 


0773) 




0913 


24 


0764 


O766 




0766 


65 


0764 


0767 


Init. (0764 )»65 1099 0773 


0767 


16 


0768 


0769 




0768 


(65 


1150 


0773) 




0769 


45 


0770 


0804 




0770 


15 


0771 


0772 




0771 


(65 


1151 


0773) 




0772 


20 


0764 


8002 




8002 


(65 


11XX 


0773) 




0773 


45 


0774 


0780 


1 


0774 


35 


0005 


0775 


+00000 0XXX9 1 (B) 9 0000 


0775 


11 


0140 


0776 


1 


0776 


44 


0766 


0777 


1 


0777 


30 


0005 


O778 


0—0; 00000 (£)9 


0778 


10 


0109 


0779 




0779 


69 


0680 


0200 


0)9 -*-#(N) Go to 1 S.S. 


0780 


60 


0140 


0781 


0— -0 X,XrXo9 -*-U.A. 


0781 


11 


0446 


0782 


(0446) . 0---09 


0782 


45 


0783 


0790 




0783 


36 


0000 


0786 




0784 


10 


0785 


0789 




0785 


(58 


0000 


0000) 




0786 


10 


8002 


0787 


Convert XjXjjXo to 


0787 


30 


0002 


0788 


floating decimal 


0788 


11 


8002 


0784 




0789 


67 


8003 


0790 
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Title 


- S.S. re 


place numerical constants 




Came 
from 


Loc. of 
Inst. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 




0790 


10 


1505 


0792 


.pctr-*U.A. 




0791 


69 


0793 


0050 


Punch: N — > Jfi 




0792 


21 


0282 


0791 






0282 


(Store 


B temporarily) 






0793 


65 


0282 


079k 






079^ 


30 


0003 


0795 






0795 


15 


0hh6 


0796 






0796 


20 


0282 


0797 


00000 (£)9 — >. 0282 




0797 


65 


01^0 


0798 


00000 0x^2X39 




0798 


35 


0005 


0799 






0799 


15 


0282 


0800 






0800 


10 


076U 


0801 






0801 


11 


0802 


8003 






0802 


(kk 


9999 


9970) 






8003 


(20 


11XX 


0803) 


0x^2X390)9 ->iixx 




0803 


65 


0282 


0778 






080^ 


01 


o&M 


0000 


Error 




085^ 


69 


1500 


0855 






0855 


2J+ 


0109 


0680 
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Page 1 of 1 TS 



Title - Third Scan: replace q.'s after computer tahle 

Notes 



Came 


Loc. of 


Op. 


Data 


Instr. 


from 


Inst. 


Code 


Address 


Address 


1 s.s. 


0805 


69 


1500 


0806 




0806 


24 


0109 


0807 




0807 


69 


0808 


0100 




0808 


98 


08l2 


0809 




0809 


65 


0109 


0810 




0810 


16 


1501 


0811 




0811 


^5 


0807 


08l3 




0812 


69 


0807 


0^70 



Pr — »-Sc 

Scan rt 
Test for q, 

Test end of formulation 

I: Go to Fourth Scan 

q,-replacement subschema 
see 8 I. A. 
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Title - Fourth Scan: replace r's in computer table 



Came 
from 


Loc. of 
Inst. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 


T.S. 


0813 


69 


0250 


08ll* 






0250 


(00 


9600 


0000) 






0811* 


2h 


0109 


0815 






0815 


69 


0816 


0100 


Scan rt. 




08l6 


99 


0820 


0817 


Test for r 




0817 


65 


0109 


0818 






0818 


16 


1501 


0819 


Test end of computer table 




O819 


1*5 


0815 


0822 


I: Go to End Phase 1 




0820 


10 


0759 


0821 






0759 


(00 


1250 


0000) 


Location of r -table 




0821 


69 


0815 


0700 


Replace -alphabetic subschema 
see 2 S.S. 
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Page 1 



Title - Scan Right 



Loc. of 

Instr. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


0100 

0106 
0113 


24 

65 
98 


0103 
0109 
0117 


0056 
0113 
0118 


0118 


16 


0121 


0326 


0121 


00 


1000 


0000 


0126 


10 


8002 


0135 


0135 


10 


0138 


0143 


0138 


64 


3000 


0145 


0143 


20 


0109 


8003 


8003 


65 


1XXX 


0145 


0145 


35 


0005 


0108 


0108 


65 


8003 


0115 


0115 


45 


0119 


0106 


0119 


30 


0001 


0125 


0125 


35 


0001 


0132 


0132 


16 


8001 


0137 


0137 


24 


0140 


0144 


0144 


35 


0004 


0101 


0101 


16 


0104 


8002 


0104 


60 


0164 


0182 


8002 


60 


0164+dx 


0182 


0164 


89 


9999 


9999 


OI65 


99 


9999 


9998 


0166 


99 


9999 


9989 


OI67 


99 


9999 


9899 


0168 


99 


9999 


8999 


OI69 


99 


9998 


9999 


0170 


99 


9989 


9999 


0171 


99 


9899 


9999 


0172 


89 


9999 


9999 



Notes 



0109 Scan counter 

9take left half, 8 ta ke right 

0109: OO^JXjXgXj 0000 

Increment Sc 



form 65 IXXX 0145 in U.A. 



L.A. contains contents of 
cell in positions 1-5 
Isolate d, , i.e. low order 
digit of symbol 

Store symbol 

Shift dj^ to posit. 5 

Note: for phase 2 this routine 
is altered as shown in p.l 
of 1 End 



50 



Title — Scan Right 
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Page 2 



Notes 



Loc. of 


Op. 


Data 


Instr. 


Instr. 


Code 


Address 


Address 


0173 


99 


9999 


9999 


0182 


90 


0136 


0187 


OI87 


15 


0140 


0195 


0195 


11 


8003 


0103 


0136 


65 


0140 


0183 


OI83 


30 


0003 


0141 


0l4l 


35 


000^ 


0201 


0201 


16 


0154 


0159 


0154 


30 


0010 


0130 


0159 


11 


0112 


0217 


0112 


10 


0000 


0000 


0217 


16 


8002 


8001 


8001 


30 


OOOx 
c 


0130 


0130 


10 


0133 


018', 


0133 


99 


8999 


9999 


0117 


15 


0221 


0175 


0221 


00 


1001 


0000 


0175 


10 


8002 


0134 


0134 


10 


0139 


0146 


0139 


64 


1999 


0225 


0146 


20 


0109 


8003 


8003 


65 


1XXX 


0225 


0225 


35 


0005 


0131 


0131 


11 


8003 


0145 


0103 


( 


exit 


) 


0056 


69 


0060 


0064 


0060 


(45 


0119 


0106) 


0064 


24 


0115 


0106 



Br. on letter (8 in pos.8) 



clear upper 



Initialize Scan rt. 
for blanks 
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Page 3 
Title — Scan left: initialize scan register 

Notes 



Loc. of 


Op. 


Data 


Instr. 


Instr. 


Code 


Address Address 


0150 


2k 


0103 


OO65 


OI56 


65 


0109 


OI63 


OI63 


98 


0066 


0218 


0218 


16 


0221 


0126 


0066 


15 


0121 


0175 




Initialize Scan 


Counter 


0209 


2k 


0162 


0116 


0116 


30 


0001 


0123 


0123 


35 


0004 


0142 


0142 


20 


0109 


0162 


0162 = 


( 


exit 


) 


OO65 


69 


OO69 


0072 


OO69 


(4 5 


0119 


0156) 


0072 


2k 


0115 


0156 
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Title — Replace U.A. cell Loc. by Low order five positions of L.A. 



Loc. of 


Op. 


Data 


Instr. 


Inatr. 


Code 


Address 


Address 


0200 


24 


0105 


0206 


0206 


20 


0111 


0114 


0114 


50 


0005 


0127 


0127 


44 


0184 


0252 


0184 


55 


0005 


0161 


0252 


55 


0004 


0195 


0195 


60 


8005 


0151 


0151 


55 


0004 


0161 


0161 


69 


8005 


0268 


0268 


98 


0122 


0225 


0225 


10 


0226 


0181 


(0226 


19 


1999 


0105) 


0181 


21 


0186 


OI89 


0189 


10 


0192 


8005 


(0192 


45 


0000 


0026) 


8005 


65 


a - l 


0129 


0129 


50 


0005 


0147 


0147 


55 


0005 


0208 


0208 


15 


0111 


0186 


0186 


20 


1XXX 


0105 


0122 


10 


0075 


0179 


(0075 


19 


5000 


0105) 


0179 


21 


0186 


0259 


0259 


10 


0242 


8005 


(0242 


45 


0000 


OO85) 


8005 


65 


a 


0188 


0188 


55 


0005 


0149 


0149 


11 


8005 


OI58 


0158 


10 


0111 


0)20 



Notes 



9 rep .right cell of gg|j|ou8 
8 rep. left cell of same reg. 



0120 50 0005 0186 

0186 20 mac 0105 
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Title — Store— Punch subroutine (store from L.A.) 
for Instructions 



Page 5 



Loc. of 


Op. 


Data 


Instr . 




Instr. 


Code 


Address 


Address 


Notes 


0000 


24 


0103 


0043 




0043 


20 


~~28 
00 31 


0038 




0043 


71 


0027 


0023 




(0043 


20 


0027 


0038) 


initially 


0038 


65 


0043 


0048 




0048 


16 


0102 


0107 




0107 


45 


0110 


0011 




0110 


15 


0013 


0017 




(0102 


20 


0031 


0038) 




(0013 


20 


0032 


0038) 




0017 


20 


0043 


0051 




0011 


65 


0014 


0017 




0023 


20 


0027 


0061 




0061 


65 


0034 


0018 




0016 


15 


0022 


0037 




(0022 


00 


0005 


0000) 




(0014 


71 


0027 


0023) 




0037 


20 


0034 


0046 




0046 


60 


1504 


0052 


1504 = i.e. 


0052 


11 


1505 


0105 


1505 = P ctr. 


0105 


46 


0058 


9999 


I exceeded storage 


0058 


65 


0062 


0017 




(0062 


20 


0028 


0038) 




(0036 


80 


0005 


0110) 




0033 


MAR - 


_ _ 






0051 


65 


1504 


0059 




0059 


15 


0063 


OO67 




(OO63 


00 


0001 


0000) 




0067 


20 


1504 


010^ 
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Title — Punch subschema for Data (punch from L.A. Into 

Permanent storage specified by position 8-5 of U.A.) 



Loc. of 


Op. 


Data 


Instr. 


Code 


Address 


0050 


2k 


0105 


0057 


20 


0077 


0016 


21 


006% 


0020 


71 


0077 


0055 


67 


8005 


0015 


16 


1505 


0019 


k$ 


0105 


0085 


(MAR 


— 


0086 


80 


0005 




Decrement Ct 


00U0 


2k 


0105 


0026 


15 


1505 


0032 


66 


0068 


0068 = 


(00 


0001 


0075 


20 


1505 



Instr. 
Address 

0057 
0016 
0020 
0055 
0015 
0019 
0012 

- ) 
0110 



0032 

0075 

0026 

0000) 

0105 



Notes 



Neg.Zero vired into all 
other fields .Punch 1 field 

If (U.A.)«(pctr), then 

decrement £ ctr. before 
exiting 

Placed in OO85 by Phase 1 

Control word for punching 



1505 - ctr. 



0025 



Decrement Ctr. by contents of L.A. positions 8-5 

2k 0105 0026 (i.e. L.A. should be 

negative) 
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Page 1 of 1 


Title - 


- Phase 1: 


Constants for f— table J library 


f's 


Came 
from 


Loc. of 
Instr. 


Op. 
Code 


Date 
Address 


Instr. 
Address 


Notes 


fOl 


1401 


-CO 


0001 


1*011 


Identity function 


f02 


1402 


-CO 


0001 


1*021 


+ 


f03 


1403 


-CO 


0001 


1*031 


— 


f04 


1404 


-00 


0001 


i*oi*i 


• 


f05 


11*05 


-00 


0001 


1*051 


/ 


f06 


1406 


-00 


0001 


1*061 


Neg. Identity 


f07 


1407 


-00 


0001 


1*071 


Absolute value 


f08 


l4o8 


-00 


0001 


1*081 


Minimization ftn 


f09 


1409 


-00 


0001 


1*091 


Branch ftn = 


no 


1410 


-CO 


0001 


1*101 


Branch ftn — 


fll 


l4n 


-00 


0001 


1*111 


Branch ftn £. 


fl2 


1412 


-00 


0001 


1+121 


Square root 


fl3 


1413 


-00 


0001 


1*131 


Neg. absolute value 


fll* 


l4l4 


-co 


0001 


1*11*1 




fCO 


1400 


-00 


0001 


1*001 




fl6 


1^16 


-00 


0001 


1*161 


log base e 


fl? 


1417 


-00 


0001 


1*171 


sine 


fl8 


11*18 


-00 


0001 


1*181 


cos 


fl9 


1419 


-00 


0001 


4191 


tan 


120 


11*20 


-00 


0001 


1*201 


arctan 


121 


ll*21 


-00 


0001 


4211 


arcsin 


122 


11*22 


-CO 


0001 


1*221 


arc cos 


123 


11*23 


-00 


0001 


1*231 


sinh 


124 


ll*2l* 


-00 


0001 


1*21*1 


cosh 


f25 


11*25 


-00 


0001 


1*251 


tanh 


126 


11*26 


-00 


0001 


1*261 


arc cosh 


127 


11*27 


-00 


0001 


1*271 


arc tanh 


128 


11*28 


-00 


0001 


1*281 


arc sinh 


fl5 


11*15 


-00 


0001 


1*151 


exponential 
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Title - End Phase 1 



Cane 


Loc. of 


Op. 


Data 


Instr. 


Notes 


from 


Inst. 


Code 


Address 


Address 






0822 


69 


0823 


0824 






0823 


(99 


8999 


9999) 






0824 


24 


0172 


0825 






0825 


69 


0826 


0827 






0826 


(98 


9999 


9999) 


Modify scan right sub- 




0827 


24 


0173 


0828 


schema for Phase 2 




0828 


69 


0829 


0830 






0829 


(98 


0136 


0187) 






0830 


24 


0182 


0831 






0831 


69 


0832 


0833 






0832 


(99 


8999 


9999) 






0833 


24 


0133 


0834 






0834 


65 


1300 


0835 


00000 #(boo e<i)2 




0835 


45 


0836 


0839 






O836 


30 


0001 


0837 


Truncate 2 




0837 


35 


0004 


0838 






O838 


20 


1510 


0846 


# (boo eq) — > E 




0839 


01 


0839 


0000 


Error 




o84o 


70 


0007 


0088 


Read the first card 
of phase 2a 




0846 


65 


0847 


0848 


Initialize table of q's 




O8U7 


(24 


1220 


0848) 


for phase 2 




0900 


69 


1504 


0901 


Initialize punch out 




0901 


24 


0034 


0840 


17-20 for instructions 




0848 


16 


0849 


O850 






0849 


(24 


1230 


0848) 






O85O 


45 


0851 


0900 






0851 


15 


0852 


0853 


8002 » 24(1221+J) 0848 




0852 


(24 


1231 


0848) 






0853 


69 


1532 


8002 


1532 - 00001 00001 



57 



NAVORD Report MH2 



B. INITIALIZE PHASES 2a and b 
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Page 1 


Title '• 


- Init. Phase 2 


: Scan table of set 


up q's. Htf 


->L.A. 


Came 
from 


Loc. of 

Inst. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 




1200 


2k 


1203 


12C4 






1206 


69 


1209 


1212 


Initialize Sc 




1209 


(00 


9222 


0000) 


with first cell in table 




1212 


2k 


0109 


1213 






1213 


20 


1217 


1220 


00000M47 -*1217 




1220 


69 


1231 


0100 


Scan rt. 




1231 


91 


1279 


0236 


Test end of table. Hon* 
Zero — *Acc. 




1203 


(exit 




) 






0236 


16 


1217 


1232 


Test q 




1232 


^5 


1220 


121*+ 


Zero in LA zp q. setup 




1201+ 


69 


0109 


1205 






1205 


21+ 


1211 


1206 


Store Sc 




121U 


69 


1211 


1215 


Restore Sc to its initial 
value 




1215 


2k 


0109 


1203 






1279 


69 


0109 


1280 






1280 


2k 


1281 


121U 






1281 


(store 




) 






1221 


00 


0010 


0001 





Initialize table of q,'a 
by read in 



1230 



00 



0010 



0001 
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Title - Init. Phase 2: Scan TAI for symbol in L.A. 



Came 


Loc. of 


Op. 


Data 


Instr. 


from 


Inst. 


Code 


Address 


Address 




1202 


24 


1203 


1207 




1207 


69 


1210 


1216 




1210 


(00 


9250 


0000) 




1216 


24 


0109 


1244 




1244 


20 


1217 


1245 




1245 


69 


0227 


0100 




0227 


91 


1203 


0228 




0228 


16 


1217 


0229 




0229 


45 


1245 


1203 



1282 



1201 
1208 
1218 
1203 



24 



1203 



1244 



24 
30 

35 
(exit 



Remove 9 Tag and shift 
1203 1208 
0001 1218 
0004 1203 

) 



Page 2 



Notes 



# (TAI)-l — *-Sc 



Scan rt 

Non- Hero — >L,A. if symbol 

not in TAI 

Zero — M..A. if symbol 

in TAI 
Resume scan with this 

instruction 
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Title - Init. Phase 2: B 1 — fr-B^also A 1 , R 1 ) 



Page 3 



Quae 
from 


Loc. of 
last. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 




1198 


24 


1203 


1576 


Entry for B 1 -»-B i + 1 




1576 


65 


1579 


1583 






1579 


(00 


8574 


0000) 


-#B W 




1583 


69 


1586 


1589 






1586 


(69 


1590 


0150) 


Set up scan left 




1589 


24 


1592 


0202 






1595 


20 


0109 


1577 


Initialize Se 




1577 


20 


1582 


1592 


Initialize 1582 with Sc 




1582 


(teap. storage) 








1592 


69 


1590 


0150 


Scan left; B^-^L-k. 




1590 


98 


0220 


1594 


Test for end of table 




1594 


10 


1582 


1587 


# (B 1+1 ) -*U.A. 




1587 


69 


1591 


0200 


Store B 1 in B i+1 




1591 


69 


0109 


1578 


#B i+1 ->1582 




1578 


2k 


1582 


1592 








Entry for A 1 -^A i+1 






1246 


2k 


1203 


1596 






1596 


65 


1599 


1583 






1599 


(00 


85»*9 


0000) 








Entry for R — *■ 


R 1 * 1 






1248 


2k 


1203 


1593 






1593 


65 


I598 


1583 






1598 


(00 


85^0 


0000) 






0202 


69 


0109 


0212 






0212 


2k 


0213 


1595 






0220 


69 


0213 


0224 






0224 


at 


010* 


1203 





63 



HAVORD Report 4412 

Page 4 

Title - Init. Phase 2: B 1+1 — *► B 1 (also A 1+ * R i+1 ) 

Came Loc. of Op. Data Instr. „_. 
from Inst. Code Address Address 

1199 24 1203 1584 

^ 65 1588 1597 Entry for B i+1 -^ B 1 

1588 (00 9551 0000) - #B* 

1597 69 1219 1589 

1219 (69 1590 0100) set up scan rt. 

Entry for A i+ i-> A 1 

1247 24 1203 1580 

1580 65 1585 1597 

1585 (00 9542 0000) # A* 

Entry for R i+ i_^R i 
1249 24 1203 1581 

1581 65 1523 1597 

1523 (00 9532 0000) # R" 
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i i i 
Title - Initialize Phase 2. B , A , R tables, TAI 



Came 


Loc. 


of 


Op. 


Data 


Jnstr. 


from 


Inst. 




Code 


Address 


Address 




1530 




00 


0080 


0008 




1531 




00 


0000 


0001 




1532 




00 


0010 


0001 



Page 5 



Notes 



1281 00 0010 0001 

65 



R" i #• «= 9532 



1539 


00 


0010 


0001 




15^0 


00 


0010 


0008 


R 17 ; #R 17 - 85*«) 


15*U 


00 


0000 


0001 


A* ; #A* » 95^2 


15U2 


00 


0010 


0001 





15**8 


00 


0010 


0001 




15^9 


00 


0010 


0008 


A 15 j #A 15 - 85^9 


1550 


00 


0000 


0O& 


B # ; #B* - 9551 


1551 


00 


0010 


0001 





1573 


00 


0010 


0001 




157* 


00 


0010 


0008 


„*« mJ& ft„i 

B j ft m 857 1 * 


1250 


00 


0010 


0001 





TAX. 



NAVORD Report ¥H2 



C. PHASE 2a 
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Page IB 



Title - b-Schena 



Owns 
frcaa 



0332 
0327 



O389 



Loc. of 


Op. 


Data 


Instr. 


Notes 


lost. 


Code 


Address 


Address 


0300 


69 


1510 


0301 


E — >Sc 


0301 


24 


0109 


0302 




0302 


69 


0391 


0100 


Scan right Go to 4B 


0303 


16 


0304 


0305 




0305 


(00 


0000 


5098) 


Test for E09. i.e. Vector 


0305 


4 5 


0307 


0359 


ecL> 
I: Go to 11B 


0306 


01 


0306 


0000 


Error 


0307 


15 


0308 


0309 




0308 


(00 


0000 


0090) 


Test for a-jngaoo in En^n^ 
D: Go to 1 Ree 


0309 


45 


0789 


0310 


0310 


69 


0311 


0150 




0311 


16 


1497 


0312 




11*97 


(00 


0000 


7018) 


Scan left for P01 i.e. coi 


0312 


45 


0310 


0313 




0313 


69 


0314 


0100 


Scan right 


0314 


93 


0315 


0317 


Test for r (storage r) 


0315 


69 


1177 


0316 




1177 


(00 


0313 


0000) 


e5— ►Ts 


0316 


24 


1519 


0757 


I: Go to 6R 


0317 


98 


0319 


0318 


Test alphabetic: c,d,e,p,b 


0318 


01 


0318 


0000 


Error 


0319 


94 


0313 


0320 


Test for d 


0320 


92 


0324 


0389 


Test for b I: Go to 4B 


0321 


16 


0322 


0323 




0322 


(00 


0000 


7038) 


Test for V z P03 


0323 


45 


0390 


1300 


I: Go to 1Q. D: Go to 4B 


0324 


69 


0325 


0100 


Scan right 


0325 


98 


0338 


0324 


Test for alphabetic 


0326 


69 


0327 


0100 


Scan right 


0327 


91 


0328 


0306 


Test for F 


0338 


95 


0326 


0324 


Test for ■ 
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Title - b -Schema 
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Page 2B 



Came 
from 



0241 



03^1 



Loc. of 


Op. 


Data 


Instr. 


Inst. 


Code 


Address 


Address 


0328 


16 


0329 


0330 


0329 


(00 


0001 


4901) 


0330 


46 


0333 


0331 


0331 


15 


0329 


0332 


0332 


30 


0001 


0306 


8002 


(00 


0000 


149X) 


0333 


15 


0334 


0335 


033^ 


(00 


0000 


0900) 


0335 


45 


0340 


0336 


0336 


65 


1550 


IO80 


0337 


15 


1069 


0339 


IO69 


(00 


0000 


ooo4) 


0339 


20 


1550 


034o 


03^0 


69 


0341 


0100 


0341 


92 


0353 


0342 


0342 


16 


1497 


0343 


0343 


45 


0340 


0344 


0344 


69 


0109 


0345 


03^5 


24 


1513 


0346 


0346 


69 


0347 


0150 


03^7 


98 


0960 


0348 


0348 


93 


0552 


0346 


03^9 


69 


0368 


0350 


0350 


24 


1203 


1981 


0351 


20 


0152 


0671 


0152 


(temp. 


store 


) 


0353 


10 


0354 


0349 


035^ 


(00 


8550 


0000) 


0355 


21 


0109 


0356 


0356 


69 


0367 


0100 


1981 


16 


1033 


0351 



Notes 



Test for Special Library F 
I: Go to IB 



Test for Foo, i.e. phase eq,. 

B° I: Go to 12B 

Tag for phase eq. -^- B° 

Scan right 
Test for b 

Test for comma 

# (,)->c 

Scan left from , 
Test for ■ sign. D: Go to 12B 
Test for R D: Go to 10B 
Enter subroutine to test 

bmn = B 1 
Store b (or r) I: See 3R 



Initialize Sc with #B°-1 

Scan rt to B 1 (R 1 ) 
Subtract o 02 
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Title 


- b -Schema 










Came 


Loc. of 


Op. 


Data 


Instr 




from 


Inst. 


Code 


Address 


Address 






0357 


69 


0109 


0358 






0358 


24 


0176 


0360 


Store Sc, i.e. position 




0176 


( temp. 


store ) 




in B i table 




O36O 


69 


0361 


0209 


#bi in B i ->-Sc 




0361 


69 


0362 


0150 


Scan left 




0362 


69 


0363 


0100 


Scan right bi-*L.A. 




0363 


16 


0152 


0364 


Test b = bi 




0364 


45 


0365 


0386 


I: Go to 4B 




0365 


69 


0176 


0366 






0366 


24 


0109 


0356 


Test end of B 1 (R* ) table. See 


0356 


0367 


16 


IO69 


1999 


03^9 


0368 


65 


0152 


0369 


Initialize Sc with # (beq) 




0369 


69 


0370 


0209 






0370 


69 


0371 


0100 


Scan right from b 




0371 


9k 


0370 


0372 


Test for d 




0372 


99 


0376 


0387 


Test for"*S9 or =. See 4B 


0377 


0373 


69 


0374 


0375 


Set exit of Br Subschema to 




037^ 


(00 


0000 


0513) 


be 0513- See 8B 




0375 


2k 


01+57 


0422 


\I: Go to 5B 


0372 


0376 


16 


1023 


0377 






1023 


(00 


0000 


0003) 


Put deg.l (i.e. '6' )tag 




0377 


20 


1508 


0373 


on •< • «-i -*Qo 


0401 


0378 


6 9 


0379 


H98 


B i _^ B i+1 




0379 


65 


1512 


0381 


00000 #(b)0 — >-B° 




0380 


20 


1550 


0382 






038I 


30 


0003 


0380 






0382 


65 


0152 


O383 


#(b eq) 2 




0383 


69 


0384 


1201 


Remove '2' tag 




0384 


20 


1510 


0402 


00 # (b eq) 0000— >-E. See 4B 


0402 


0385 


98 


0394 


0393 


Go to 4B 
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Page 4B 



Title - b -Schema 



Came 
from 

036^ 



0372 

0320 
0323 
0302 

0388 

038U 
0385 
0385 



1331 



Loc. of Op. 
Inst . Code 



O386 



20 



Data 
Address 

0176 



Instr. 
Address 

1203 



0387 


65 


0176 


0388 


0388 


1+5 


oUoo 


01*21 


0389 


97 


0321 


0318 


0390 


k6 


0318 


0313 


0391 


98 


0392 


0302 


0392 


95 


0303 


0302 


0U00 


69 


0109 


0U01 


C401 


2k 


0176 


0378 


C402 


60 


0176 


0385 


0393 


11 


0221 


0395 


039^ 


10 


0121 


0395 


0395 


21 


0176 


0396 


0396 


65 


1504 


0397 


0397 


30 


0003 


1331 


0398 


10 


0176 


0399 


0399 


69 


Olt-03 


0200 


0403 


65 


1514 


otou 


c4oi+ 


^5 


0405 


0300 


OU05 


65 


1550 


0U06 


0406 


15 


1023 


0U07 


Oi+07 


20 


1550 


01+08 


0408 


21 


151^ 


0^09 


OU09 


21 


1521 


0410 


0410 


65 


1598 


(Ml 


04ll 


69 


0^12 


OUlU 


0412 


65 


1599 


0413 


0M3 


69 


0999 


OUlU 



Notes 

I: Co to 0368, 3B. See 0350, 
2B -WJ6 if B in B* . 
#0-^0176 if no b in B 1 

I: Go to 5B 
Test for P. Go to IB 
Test for P=Pol. Go to IB 
Test for =. Go to IB 



#$=)— *0176 
Go to 3B 
Go to 3B 

Form 



(-)-l 



<*W -I.C 
Go to 12B 



in 9 



•blank cell left of 



tag 



Min. register 
I: Go to IB 
B° = 00000 #(b)0 
Add M in Tag = '3' 
# (b)r->B° 
Store in Min. 
Store in T 

(1598) - #R 1 ? 

Go to store blanks subschema 

(Rl) 15 

(1599) =#«r p 

Store blanks in A 
D: Go to 6Q 
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Title - b -Schema 








Came Loc. of 
from Inst . 


Op. 
Code 


Data 
Address 


Instr. 
Address 


fOhlk 


24 


1203 


04L5 


1 0415 


20 


0109 


04l6 


Store 
blanks 
subschema ^ 


04l6 
0417 


65 
10 


1082 
0109 


0417 
0^18 




04l8 


69 


0419 


0200 




0419 


69 


0420 


0150 




^0420 


98 


1203 


0416 


0388 0421 


01 


0421 


0000 


0375 0^22 


69 


0423 


0100 


OU23 


69 


0^24 


0100 


042*+ 


98 


0560 


0425 


0425 


65 


0109 


0426 


0426 


20 


0472 


0433 


0433 


98 


0470 


0432 


0432 


15 


0434 


8002 


0434 


(64 


2000 


0435) 




0435 


20 


OI76 


0427 



0470 15 



0471 



0471 
0472 



64 3000 
(temp . store 



8002 

1989 

) 



Page 5B 

Notes 

#R 17 (or#A 15 )-^Sc 
(1082) = 00000 00001 

Store 00001 in R 1 (or A 1 ) 

Scan left 

Test for beginning £° (orA° ) 

Error 

Scan rt . from cJ~ 69 

Scan rt. fromo^r^ 

Test for = or X ; if =, in 

midst of recursion. D: Go 

to 10B 
Sc — >■ 0472 

8002 = 65(left half of K 
(bmn))0435 

Store (K) = &. «£, £«j. Go 

-to 6B 

8002 = 65 (rt half of K(bmn) 

1989 
Go to 5a B 
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Notes 



Title • 


- b -Schema 








Came 
from 


Loc. of 
Inst. 


Op. 
Code 


Data 
Address 


Instr. 
Address 




1989 


35 


0005 


1988 




1988 


20 


OI76 


1987 




1987 


65 


0109 


1986 




1986 


15 


1985 


8002 




1985 


(64 


3001 


1984) 




1984 


30 


0005 


1983 




1983 


15 


0176 


0435 



Go to 58 
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Page 6"B 



Title - b-Schema 



Came 


Loc. of 


Op. 


Data 


Instr 




from 


lost. 


Code 


Address 


Address woxe3 




CA-27 


69 


0^28 


0150 


Scan left 




OkSQ 


93 


01*31 


01*29 


Test for storage r 




Qk29 


16 


1^97 


01*30 


11*97 - , 




0^30 


1*5 


OU27 


01*31 


Test for comma 




(A3I 


20 


1509 


01*36 


or # (r) 3 -*- »*• 




(A36 


60 


1511 


01*37 


1511 - B I 




0»*37 


11 


0176 


oi*i*o 


OI76 m K(temp store) see 
<*35, 5B 




01*38 


36 


0000 


01*39^ 






01*39 


20 


1203 


01*1*1 






01*1*0 


U 5 


Cft38 


01*57/ 






0W*1 


67 


8003 


01*1*2/ 






01*1*2 


15 


0438 


01*1*31 






01*1*3 


21 


1582 


OM*!* 






OW* 


65 


1203 


01*1*5 I 


Compare K.I. with B.I aw 




0H5 


16 


1582 


0l*i*6 \ 


l obtain first disparate 




0l*l*6 


35 


000U 


0l*i*7 


r digit, 81, if any. 




01*1*7 


15 


0V»8 


0»*l*9 






0l*l*8 


(35 


0000 


Ol*53) 


B.I. »2f l*i- - - 2^ 




ol*l*9 


20 


1203 


01*50 


K.I. *S Q 6i~ - - S^ 




01*50 


15 


1033 


01*51 


^ 




0»*5i 


20 


1582 


01*52 


1582 » 35 [000(1-1)/ 01*55 




(A52 


65 


0176 


1203 


™ ^ 




(*53 


65 


8002 


01*51* 






01*51* 


35 


0001 


0i*68j 


I: Go to 7B 




01*56 


1*1* 


0i*58 


01*57 


Test 6i • 




0^57 


00 


0000 


0513 


See 0375, 3B. Go to 8B or 

1*B 
B.I. 1582-35 £000(1-1)1 

01*55 




0^58 


60 


1511 


1582 




OU59 


(10 


0000 


0000) 




01*60 


h6 


01*69 


0l*6l 


Test % « OjU.e.) <1 
Go to 7B 


1582 


0^55 


11 


01*59 


01*60 
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Page 7B 



Came 
from 



Loc. of Op. 
Inst . Code 



Ok$k 
0460 



0070 
0045 



0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0473 

0474 
0475 

0476 

0477 
0478 
0479 

0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 



11 
45 
65 
45 
65 
16 

15 
20 

65 
35 

20 
65 

10 

69 
21 

65 

65 

30 
10 
69 
65 
15 
(00 
10 

69 

24 
30 
15 



Data 
Address 

0459 
0469 
1203 
0469 
0176 
1511 
0176 
1203 
1511 
0005 

1203 

8003 
0472 

0479 
0109 
0109 

1203 
0005 
0109 
0484 
1504 
0486 
0002 
1505 
0490 
0021 
0004 
0021 



Instr. 
Address 

0462 
0463 
0464 
0465 
0466 
0467 
0473 
0456 

0473 
0474 

Q475 
0476 

0071 

0200 
0477 

0035 

0481 

0482 

0483 

0200 

0485 

0487 

0129) 

0489 

0050 

0488 

0491 

0492 



Notes 

Test all Jfj * e> J>1 
©i+1, S±+2, 

K 

- B.I. f 
Replace oi by o 



Store B.I. or new K.I. 
(low order 5) 

B.I. or new K.I. (high order 5) 

-»L.A. 

# («sign). See SB I: Go 

to 7aB 
Store B.I. (or K) in K(Bmn) 
#(*sign)— *Sc 
Scan rt. to #(»)+l Go to 

7a B 

Store low order 5 digits 
in K (bmn) 

7V= (I.e.) . 1504 

Form: "Jump to 7V +2* 

^ctr. r IS OS 

Punch: "Jump toTT+2'*— yh 

Store £ in 0021(temp) 

00 0000 (B-l)-*L.A. 

00 B $-1) 
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Page 7a B 



Title - "b -schema 



Came 

from Inst. Code Address Address Notes 

01+79 



(A76 



01+96 



Loc. of 
Inst. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


0035 


98 


0039 


OOl+l 


0039 


15 


0221 


0045 


OOl+l 


16 


0121 


001+5 


001+5 


20 


0109 


oi+8o 


0071 


98 


0055 


0070 


0055 


10 


0221 


01+78 


0070 


11 


0121 


OI+78 


0074 


20 


0109 


0085 


0085 


69 


0082 


0150 


0082 


69 


01+97 


0100 



Go to 7B 



Go to 7B 



Go to 8B 
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Title 


- d -Schema 










Came 


Loc. of 


Op. 


Data 


Instr. 




from 


Inst. 


Code 


Address 


Address 


Notes 




01*92 


15 


0493 


0512 






0493 


(69 


0000 


0000) 




0512 


0494 


69 


0^95 


0000 


Punch : 69 £ (0-1 ) -*. 7V 




0495 


65 


0109 


OU96 


Scan left 




0496 


16 


0063 


007i»- 


Scan left to A. Go to 7a B 


0082 


0U97 


35 


0003 


0498 


00 (A) 0000 




0498 


15 


OU99 


0500"^ 






0499 


(24 


0000 


0340) 






0500 


10 


1505 


0501 y 


Punch: 24 N 0340 -*-B-l 




0501 


69 


0502 


0050 / 






0502 


69 


0503 


015^ 


Scan left to ^9 




0503 


69 


0504 


1201 


00 (<><x) 0000 -**L.A. 




0504 


15 


0486 


0505 


1470 a 00 0002 0000 




0505 


16 


1470 


0506 


00»<TC 0129 — >-L.A. 




0506 


69 


0507 


0000 


Punch: 00 <^n 0129— *-7T-H 




0507 


65 


0508 


0509 






0508 


(00 


0086 


0000) 


■ loc. of S.CC "No OP" 




0509 


69 


0021 


0510 


69 £ p-1 — ►- dist. 




0510 


22 


0021 


1391 


Go to 12B 


1381 


0511 


69 


0457 


0000 


Punch "69 o< (No OP) $-1'^*+ 
Go to 6B 


(A92 


0512 


20 


0021 


0U94 




OU57 


0513 


69 


0354 


0514 


#B°-1 — >- Sc. 




0514 


2U 


0109 


0515 


See 2B 




0515 


69 


0516 


0100 


Scan rt. to B° 




0516 


94 


0517 


0521 


Test B° for phase mar*:'V 




0517 


65 


1508 


0523 


(Qo) = (o<)6 I: Go to 9B 




0518 


10 


1512 


0519 


Sc 1 




0519 


24 


0109 


0520 


Sc^ — > Sc i.e. #bnn 
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Page 9B 



Came 
from 



0517 



0675 



0529 



Loc. of 


Op. 


Data 


Instr. 


Notes 


Inst. 


Code 


Address 


Address 


0520 


69 


03^0 


0200 


»<^ -¥ #b mn Ck) to 2B 


0521 


65 


1509 


0522 


Zero test S+ 


0522 


^5 


0524 


0517 


I: Go to 8B 


0523 


15 


1023 


0518 


1023=0—03 i.e. °C 


052^ 


69 


0525 


O209 


#(req) — ^Sc 


0525 


69 


0526 


0100 


Scan rt. 


0526 


97 


0527 


0525 


Test for q; 


0527 


69 


0529 


0100 


Scan rt. 


0529 


98 


0531 


0675 


Test for q 


0530 


20 


1503 


0532 


Store non-zero in ie 


0531 


21 


1503 


0532 


Store zero in Ic 


0532 


69 


1512 


0533 


# b mn— *Sc 


0533 


au 


0109 


053^ 




053 1 * 


69 


0535 


0100 




0535 


99 


0538 


0536 


Test for address 


0536 


97 


0538 


0537 


Test for q 


0537 


93 


0538 


0528 


Test for r 


0528 


01 


0528 


0000 


Error 


0538 


20 


1502 


0539 


Row index — *• Ifc 


0539 


65 


1503 


05^0 


Zero test Ic 


05U0 


*5 


05^1 


0546 




05I+I 


69 


05^2 


0100 




05^2 


99 


05U5 


05^3 


Test for const. 


05^3 


97 


05^5 


05kb 


Test for r 


05^ 


93 


051*5 


0528 


Test for q 


0545 


20 


1503 


05^6 


Col. index — >-Ic 


O5U6 


65 


1512 


0547 


s l 


05^7 


30 


0003 


05W 




0675 


97 


0530 


0531 





»^-*-L.A. 
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Title - b -Schema 



Came 
from 



O3U8 



042U 



Loc. of 


Op. 


Data 


Instr. 




Inst. 


Code 


Address 


Address 


Notes 


0548 


20 


1541 


0549 


# (o nm)-^' 


O5U9 


69 


0550 


0551 




0550 


(00 


0340 


0000) 


0340 m e2 


0551 


2k 


1521 


1100 


e2 -*"T. Go to 3A 


0552 


69 


0553 


0150 




0553 


96 


0558 


0554 


Test for a of deg. 1 


055* 


95 


0558 


0555 


Test for a of deg. 2 


0555 


69 


0556 


0150 




0556 


95 


0558 


0557 




0557 


01 


0557 


0000 


Error 


0558 


69 


0550 


0559 


e2 -*-T 


0559 


24 


1521 


1003 


Go to 3A 


0560 


16 


0304 


0561 


0304 » E09 (See IB) 


0561 


45 


0562 


0359 


0359 * Vector Schema. Go to 
11B 


0562 


15 


0308 


0563 


00 0000 Oto-irtioO L.A. 
(See IB) 


0563 


35 


0008 


0564 




0564 


21 


0176 


0565 


Store /i»i temp. 


0565 


65 


8002 


0566 


Clear U.A. 


0566 


16 


0459 


0567 


0459 = 10 — 


0567 


1*5 


0598 


0568 


Test «e ■ 1. if 36 1 Go to 
12B 


0568 


65 


1033 


0569 




0569 


16 


0176 


0570 


Test /n^ * 2. Branch for A^i 


0570 


k6 


0571 


0571 


has been omitted on model U 


0571 


69 


1512 


0572 


Sc;j»#(b mn)— »>Sc 


0572 


2k 


0109 


0573 




0573 


69 


0574 


0100 


Scan rt. 


057 1 * 


99 


0575 


1975 


Test for address. I: Go 



to 13B 



♦Vector recursions for which all b's are same has been omitted in Model 1. 
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Title - b -Schema 



Quae 
from 



1972 



058k 



0561 
0305 



Loc. 
Inst. 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 
058»* 

0585 
0586 

0587 

0588 

0589 

0590 

0591 

0592 

0593 

059^ 

0595 

0596 

0597 

0359 



of Op. 
Code 

65 

10 

69 

21 

65 

16 

*5 
16 

*5 
1*6 

65 
15 
10 

69 
65 
10 
65 
69 
69 
16 
*5 
69 
20 

01 



Data 
Address 

1508 

1512 

03^ 

1503 

0176 

1033 
0582 

1033 

058^ 

0591 
1508 
1023 
1512 
0589 
8003 
0109 
0152 
0593 
059^ 
0322 

0593 
0597 
1515 

0359 



Instr. 
Address 

0576 

0577 

0200 

0579 
0580 

0581 

0532 

0583 

0532 

0585 

0586 

0587 

0588 

0200 
0590 
0577 
0592 
0209 
0150 
0595 
0596 
0100 

0532 

0000 



Page 113 

Notes 

Qo m o<(b on) 6 
# b an 

p<6># b am Go to 2B» 

Zero I.e. 

test *]*2. 
I: Go to 9B 
test yn.±"k 

I: Go to 9B 
Test/Hi-5 
OP «<*« 
IO23-O — 03 i.e. c#-*L.A. 

0*9 — > # b nn 
->L.A. and U.A. 
jf index, erase index 
# (b eg.) 2->Sc 

Scan left 

Test for V, *'..«» r03 



Sean rt to^st 

0— -Q^*qrj —^.Q^nd. 

Go to^B. 

JBrror 



81 



HAVCRD Report 4412 



Title - b-Schema 



Game 
from 

0567 



Loc of Op. 
Inst. Code 



03U7 



O625 IR 



0336 



O398 



0510 



0598 
0599 
0600 
O96O 
O96I 
0962 
0963 
0964 
0965 
O966 
1080 
0241 

1331 
1470 
1381 
1999 
1998 



16 
4 5 
01 
69 

(69 
24 
70 
69 

(69 
01 

30 

35 

15 

(00 

65 
45 
15 



Data 
Address 

0459 
O6OO 
0600 
096I 
0301 
0024 
0007 

0965 
0417 
0966 
0001 
0001 

0980 

0002 
8001 
1997 
IO69 



Instr. 
Address 

0599 

0600 

0000 

O962' 

0302) 

0963 

0000 

0962 

o4i8) 

0000 

0241 

0337 

0398 

0000) 

0511 

1993 

0386 



Page 12 B 

Notes 

0459 - 1 — 

Error 

Read in Phase 2B and 
go to 1 Int. 



Error 

I: Go to 2B 
(0980) -'9' tag 
See 0505, 8B 

Go to 8b 
Check for master phase 
Eq.p B 00 
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Page 13 B 



Title 


- b -Schema 










Game 
from 


Loc. of 
Inst. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 




1997 


15 


IO69 


1980 






1980 


16 


0888 


1979 


Test for end rec. mark 
see 4r 




1979 


*5 


1978 


0356 


I: Go to 2B 




1978 


16 


OO63 


1977 






1977 


1*5 


1976 


0356 


I: Go to 2B 




1976 


15 


0902 


0357 


I: Go to 3B 


057 1 * 


1975 


97 


197^ 


1973 


Test fory^q 7 




197^ 


69 


1033 


1972 


1033 » -—02 




1973 


69 


8003 


1972 


Zero 




1972 


2k 


0238 


0578 


0238 a Z , Go to 11B 
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Title - r -Schema 



Came 
from 



0981 



0612 
0981 



0611 



Loc. of 


Op. 


Data 


Instr. 


Inst. 


Code 


Address 


Address 


0601 


91 


0602 


0306 


0602 


21 


1092 


1093 


0603 


46 


06o4 


0331 


0604 


15 


0329 


0605 


0605 


16 


1342 


O6O6 


0606 


45 


0611 


O607 


0607 


65 


1521 


O6O8 


0608 


45 


2002 


0609 


0609 


65 


1598 


0610 


0610 


69 


1070 


04l4 


0$11 


69 


O98I 


0100 


0612 


97 


0613 


0622 


0613 


69 


06l4 


1200 


0614 


45 


0619 


0615 


0615 


15 


1217 


06l6 


0616 


15 


1033 


06l7 


0617 


10 


0109 


0618 


0618 


69 


0611 


0200 


0619 


65 


1519 


0620 


0620 


45 


0621 


0609 


0621 


01 


0621 


0000 


0622 


16 


1497 


0623 


0623 


45 


0626 


0624 


0624 


69 


0109 


0625 


0625 


24 


1513 


0964 


0626 


69 


O627 


0150 


0627 


69 


0628 


0100 


0628 


9 4 


0629 


0630 


0629 


15 


1023 


0613 


0630 


96 


0631 


0652 


0981 


98 


0622 


0612 



Notes 

Test f. I: Go to IB 
Test for special 
library fmn. i.e. mn £• 90 

Test for f min 

No TLU Min in Model 1 
This branch will not be 

taken . 
Store blanks in R (See 5B) 
Go to 1A 
Scan Rt. 
Test for q 
Test setup of q 

Al7— >L.A. 
Change tag to '9' 
#q-*U.A. 

^q9-*#q 
Ts 

Zero test Ts 
Error 
Test for comma 



ft, — »-C and exit to 

interpreter, (see 12B) 
Scan left 
Scan rt. 
Test for/*q4 
y w q7-^L.A 1 
Test for a . Go to 2R 
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Title - r -Schema 



Came 
from 



0630 



Loc. of 


Op. 


Data 


Instr. 


Notes 


Inst. 


Code 


Address 


Address 


O631 


69 


0632 


0100 


Scan rt. 


0632 


99 


06H 


0633 


Test for address D: Go to 

IB 
Test for q 


0633 


97 


0634 


0637 


0634 


65 


1521 ■:■ 


0635 


Zero test T 


0635 


45 


O636 


0637 




O636 


01 


O636 


0000 


Error 


0637 


65 


1519 


O638 


Zero test Ts 


O638 


45 


0648 


0639 




0639 


69 


0640 


0150 


Scan left to a 


0640 


69 


0109 


0641 


Sc — y S^ 


064l 


24 


1512 


0642 


A^A 1 * 1 - 


0642 


69 


06*3 


1246 


0643 


65 


1512 


0644 




0644 


30 


0003 


0645 


(#a) __*A' 


0645 


20 


1541 


0646 


Store blanks in R and 


0646 


65 


1598 


0647 


0647 


69 


IO38 


04l4 


go to 1A. 


0648 


16 


1356 


0649 


Test Ts=e6.1 See 4q 


0649 


45 


0650 


0651 




0650 


01 


0650 


0000 


Error 


0651 


24 


1517 


0552 


#0-»Tq Go to 10B 


0652 


95 


0656 


0653 


Test for a of deg. 2 


0653 


93 


0668 


0654 


Test for r. D: Go to 3R 


0654 


99 


06ll 


0655 


Test for address. D: Go to 

1R 
Error 


0655 


01 


0655 


0000 


0656 


65 


1521 


0657 


2ero test T 


0657 


45 


0659 


0658 




0658 


69 


0637 


0100 


Scan rt 


0659 


69 


0660 


0100 


Scan rt 


0660 


97 


0661 


0663 


Test for q 
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Page 3 of 7K 



Title 


- r -Schema 










Came 


Loc. of 


Op. 


Data 


Bistr. 


Notes 


from 


Inst. 


Code 


Address 


Address 




0661 


69 


0662 


1200 


Test set Tip of q 




0662 


45 


O636 


0663 


D: Go to 2R 




0663 


69 


0664 


0100 


Scan rt. 




0664 


97 


0665 


0637 


Test for q 




O665 


69 


0666 


1200 


Test setup of q 




0666 


45 


0636 


0667 






0667 


69 


0637 


0150 


Scan left. Go to 2R 


0653 


0668 


69 


0109 


O669 


Sc — *■ S^ 




0669 


2k 


1512 


O676 




0351 


0671 


69 


0109 


0672 


See 2B 




0672 


24 


1512 


0355 


Sc-»-Sci 

#(r eq7— *-Sc 




O676 


69 


0677 


0209 




0677 


69 


0678 


0100 


Scan rt. 




O678 


99 


O698 


0683 


Test for •$$9 D: Go to 4R 
R 1 — ♦ R 1 x 


1930 


0679 


69 


0680 


1248 




0680 


65 


1512 


0681 


#(rmn)o y R 




0681 


30 


0003 


0682 






0682 


20 


1531 


0692 


Go to 4R 


O678 


O683 


60 


0109 


0684 


#(= of r eq. )-#-U.A. 




0684 


98 


O685 


0686 






0685 


10 


0121 


0687 


Form # (=) - 1 




0686 


11 


0221 


O687 






O687 


21 


0176 


0688 






0688 


65 


1504 


O689 


<v = (i.e.) 




0689 


30 


0003 


0690 






0690 


10 


0176 


0691 
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Page k of 7R. 



Came 
from 



1930 
0682 



0699 

O678 
1113 

1932 

7A 

1178 



Loc. of Op. 
Inst. Code 



0717 
0718 



0709 



0691 
0692 

0693 
06o4 

0695 
0696 

0697 
0698 

0699 
0700 
0701 

0702 

0703 
0704 
0705 
0706 
0707 

0708 

0709 
0710 
0711 
0712 
0713 
0714 
0715 
0716 

0717 
0718 

0719 



69 
69 

24 

69 
69 
69 
(00 
10 

69 

65 
24 

69 

(00 

2k 
65 
69 
69 

21 



10 0710 

(temp store 



Data 
Address 

1931 
0176 

0109 

0695 
0601 

0697 
0000 

1512 
0696 
1092 
0109 

0703 



Instr. 
Address 

0200 
0693 

0694 
0100 
0100 

0375 

0700) 

1113 

0200 

1936 

0611 

0704 



9233 


0000) 


0710 


0705 


1509 


0706 


0707 


0209 


0709 


0100 


0710 


0711 



69 

65 

16 
*5 
69 
98 
10 
11 

2k 



0712 

oi4o 
1497 
0707 
0703 
0717 
0221 
0121 
0109 



0716 

0200 ' 

0713 

0714 

0715 

0719 

0718 

0708 

0708 

0720 



) 



Notes 

•*x -*•#(- )-l Go to 7R 
#(-)-! — *• Sc 



Scan rt to ■ 

Scan rt to f . Go to 1R 

Set exit of Br Subschema 

to be 0700. Go to 3B 
ScT-^frmn Go to 7R 

°^— >#rmn 
#rmn — ►Sc See 7R 
Go to 1R 



#fto-l-*> 0710 (temp) 



s+.—y L.A. 
#(req)—> Sc 
Scan rt. 



i.e. #(req)3 



S -* V x 

Test for comma 
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Page 5 of 7R 



Title 


- r -Schema 










Came 


Loc. of 


Op. 


Data 


Instr. 




from 


Inst. 


Code 


Address 


Address 


Notes 




0720 


69 


0721 


0100 


Scan rt. to W* 




0721 


93 


0723 


0722 


Test for C 




0722 


9 7 


0727 


0720 


Test for q. 




0723 


16 


0724 


0725 






0724 


(00 


0000 


3018) 


Test for Col 




0725 


*5 


0726 


0728 






0726 


01 


0726 


0000 


Error 




0727 


20 


0710 


0728 


4-*-R 4 




0728 


65 


1502 


0729 


Ir «y*q9-*L.A. 




0729 


10 


0109 


0730 


A<&-+ W 1 




0730 


69 


0731 


0200 




0731 


69 


1391 


0100 


Scan rt. 




0732 


97 


0739 


0733 






0733 


16 


073^ 


0735 






073 1 * 


(00 


0000 


3028) 


Test for CoS 




0735 


*5 


0736 


0739 






0736 


65 


1519 


0737 






0737 


16 


1119 


0738 


Test Ts«el7 




0738 


k5 


1094 


0726 


D: Go to 7R 




0739 


65 


1503 


07»*0 


Ic -fr-H 2 




07^0 


10 


0109 


07to 




071+1 


69 


07^2 


0200 






07^2 


69 


1383 


0100 


D: Go to 7R 




07^3 


97 


0744 


07^9 


Test for q 




ojkh 


16 


0710 


07^5 


Compare: Sand R* 




07^5 


k5 


0726 


07^ 






07^ 


65 


1502 


07^7 






07U7 


10 


0109 


ojk& 






OjUQ 


69 


07^2 


0200 






07U9 


16 


0724 


0750 




0731 


1391 


98 


0733 


0732 


Test for alphabet* 
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Title - r -Schema 



Came 
from 



0316 
IB 



oVf 



Loc. of 


Op. 


Data 


Instr. 


Notes 


Inst. 


Code 


Address 


Address 


0750 


J+5 


0751 


07^6 




0751 


15 


072^ 


0752 




0752 


16 


1^97 


0753 


(l497)=comma 


0753 


^5 


07^2 


075^ 


e 


075^ 


69 


0703 


0755 


#W -1 ->Sc 


0755 


2k 


0109 


0756 




0756 


69 


1382 


0100 


Scan rt to » 


1382 


69 


0601 


0100 


Scan rt to F. Go to 1R 


0757 


20 


1509 


0758 


00000 #(req)3 -*• S+. 


0758 


65 


0109 


0759 




0759 


30 


0003 


0760 


#r — *R- 


O76O 


20 


1531 


0761 




0761 


65 


1509 


0762 


#(regj — t Sc 


0762 


69 


0763 


0209 




0763 


69 


0764 


0100 


Scan rt to = 


QrjSk 


69 


0765 


0100 


Scan rt to f 


0765 


91 


0766 


0306 


Test for f I: Go to IB 


O766 


69 


0767 


0100 


Scan rt 


0767 


97 


0768 


0726 


Test for q, 


0768 


69 


0769 


1200 


Test setup of q 


0769 


4 5 


0770 


0771 




0770 


01 


0770 


0000 


Error 


0771 


65 


1217 


0772 




0772 


15 


1033 


0773 


</*g.7+2=,Ai9 — > JR 


0773 


20 


1502 


0774 




077^ 


69 


1390 


0100 


Scan rt 


0775 


97 


0776 


0780 


Test for q D: go to 7R 


0776 


69 


0777 


1200 




0777 


k$ 


0770 


0778 


Test setup of q 


0778 


65 


1217 


0779 


s<<x 


1390 


98 


0780 


0775 
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Page 7 of 7R 


Title 


- r -Schema 










Came 
from 


Loc. 
Inst. 


of Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 




0779 


15 


1033 


0780 


/<<& -3, i.e. 




O78O 


20 


1503 


0781 






0781 


69 


0782 


O783 






0782 


(20 


1502 


0784) 


Set exit of 0148, 7A 




O783 


24 


0148 


1160 


and go to 6A 


0148 


0784 


69 


0785 


0786 






0785 


(20 


1502 


1127) 


Reset exit of 0148 




0786 


24 


0148 


0787 






0787 


65 


1531 


0788 


R°->>Sc 




0788 


69 


1379 


0209 






1379 


69 


1082 


1380 






13&0 


24 


1531 


0124 


Store blank in R° 




0124 


21 


1519 


0313 


0-»-Ts Go to IB 


0742 


1383 


98 


0749 


0743 


Go to 5R 


0602 


1093 


16 


0329 


0603 


Go to 1R 


0698 


1113 


20 


1114 


O699 


Store ©£s9 Go to 4R 


0700 


1936 


45 


1935 


1932 






1935 


65 


1114 


1934 


<»<1s9 




1934 


10 


1933 


0266 


Go to 5A 




1933 


(00 


9503 


0000) 






1932 


69 


1512 


0701 


Go to 4r 


O69I 


1931 


65 


1092 


1930 






1930 


45 


0692 


0679 


D: Go to 4r I; Go to 3R 


0738 


1094 


69 


0742 


0150 


Go to 5R 
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Page 1 of 10A 


Title 


- Addressor 










Came 


# 


Loc of 


Op. 


Data 


Instr. 


Notes 


from 


Inst. 


Code 


Address 


Address 









1000 


69 


1500 


1001 


Pr -»• Sc 




1 


1001 


2k 


0109 


1002 






2 


1002 


69 


1017 


0100 


Scan right 




3 


1003 


96 


1035 


1004 


Test S for a of deg.l 




k 


ioo4 


95 


1035 


1005 


Test S for a of deg.2 




5 


1005 


9k 


1026 


1006 


Test S for a, Integer 




6 


1006 


65 


0109 


1007 






7 


1007 


16 


1501 


1008 


Test (Sc) «(P 8 ) 




8 


1008 


^5 


1002 


1009 






9 


1009 


60 


1550 


1010 


00000B* — *- U.A. 




10 


1010 


35 


0009 


1011 






11 


1011 


11 


1012 


1013 


Test for H in. Tag in 
B° 
Min. tag la a 9 In 






1012 


= (90 


0000 


0000) 














position 




12 


1013 


kk 


1014 


1016 


l_of B*. 




13 


1014 


69 


1507 


1015 


Sc — »Sc 




14 


1015 


2k 


0109 


0313 


Go to e5 1/b 




15 


1016 


65 


1550 


1018 


B'—tJA 


1002 


16 


1017 


98 


1006 


1003 


Test for alphabetic. 




17 


1018 


69 


1060 


0209 


# d-l- (B - )-»-Sc . Go 
to 4,A 


1060 


18 


1019 


69 


1020 


0100 


Scan right bi-»L.A. 
Init. Sc with f(. of b 

eq. ) 
#(«)-> E. Go to el.o, 

b. 
Change -*q4 to/** gj 




19 


1020 


69 


1021 


0209 




20 


1021 


20 


1510 


0301 




21 


1022 


15 


1023 


1024 




22 


1023 


a (00 


0000 


OCO3) 






23 


1024 


69 


1025 


1200 


Test setup of q. 




2k 


1025 


»*5 


1028 


1030 




1005 


25 


1026 


69 


0109 


1027 


Sc — *Sci 




26 


1027 


2k 


1512 


1022 






27 


1028 


69 


1512 


1029 


Sc,-?>Sc 




28 


1029 


24 


0109 


1002 
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Page 


2 of 10 


Title 


- Addressor 










Came 


# 


Loc. of 


Op- 


Data 


Instr . 


Notes 


from 


Inst. 


Code 


Address 


Address 






29 


1030 


60 


1512 


1031 


#(a int)-*U.A. 8-5 




30 


1031 


15 


1217 


1032 


Mq 7— >L.A. 5-1 




31 


1032 


15 


1033 


1034 


Change M^7 to Mq9 




32 


1033 


- (00 


0000 


0002) 






33 


103lf 


69 


1028 


0200 


Replace A int. hy 
Mq9 


1003 

1004 


34 


1035 


65 


0109 


1036 






35 


1036 


30 


0003 


iW>37 


Sc m ^aJo-^-A" 




36 


1037 


20 


154l 


1038 






37 


1038 


65 


154l 


1039 






38 


1039 


35 


0003 


1040 


A° — > Sc 




39 


1040 


20 


0109 


104l 






1+0 


io4i 


69 


1042 


0100 


Scan Right 




in 


1042 


20 


1502 


1043 


Row -index — ^-IR 




k2 


1043 


69 


1044 


0150 


Scan left 




43 


IQhh 


20 


1508 


1388 


Store a in Q* 


1388 


44 


1045 


96 


1046 


1047 


Test for a of deg 1 




h5 


1046 


21 


1503 


1100 


2ero— *Ic. Go to 3R 




k6 


1047 


69 


1048 


0100 


Scan right 




hi 


10U8 


69 


10^9 


0100 


Scan right 




k8 


1049 


20 


1503 


1050 


Col index -«.C. 5-1 
A , i.e. a of deg 2, 




k 9 


1050 


65 


1508 


1051 














-^LA 




50 


1051 


69 


1052 


0209 


#(«*(a )) in computer 
table — *Sc 




51 


1052 


69 


1053 


0100 


Scan right 




52 


1053 


20 


1509 


1054 


Storage r — *■ ST 




53 


105l* 


69 


1055 


0150 


Scan left o*(a 2 )9 
— >L.A. 




54 


1055 


16 


1056 


1057 






55 


1056 


» (00 


0000 


0003) 


e>4(a 2 )6-»Qo Go to 
3R 

Left half of I R (l c ) 
-*-Sc 




56 


1057 


20 


1508 


1100 


1126 
1109 


57 


1058 


69 


0263 


1061 




58 


0263 


(Temp. 


Store 


) 
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HAVORD Report 4412 



Page 3 of 10 



Title - Addressor : Initialise for IR 



Came Loc.of Op. Data Instr. 

from Inst. Code Address Address Notes 

1100 69 1101 1102 

1101 -(00 8502 0000) #of left half of I R 

1102 2h 0263 1103 

1103 65 1104 1105 

no4 »(oo 1098 0000) ei3 * 1098 

1105 69 0264 1106 Set exit of 0264, 

1106 22 0264 1110 4A to be e 13 

1107 30 0004 1108 

1108 69 0265 1109 Set exit of 0265 

1109 23 0265 1058 to be 613 



1110 69 0266 1111 I 

1111 22 0266 1107 J 



Go to 2A 

Set exit of 0266 
to be e!3 



1065 1112 10 0109 1066 Go to 1*A 
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Page 4 of 10A 



Title - Addressor 



Came 


Loc. of 


Op. 


Data 


Instr. 


from &~ 


Inst. 


Code 


Address 


Address 


1018 17-1 


1060 


69 


1019 


0150 


59 


1061 


2k 


0109 


1062 


60 


1062 


69 


0264 


0100 


61 


0264 


99 


9999 


1064 


62 


1064 


97 


IO65 


1089 


63 


IO65 


15 


1033 


1112 


1112 64 


1066 


69 


IO67 


0200 


65 


1067 


65 


0140 


1068 


66 


1068 


69 


0265 


1200 


67 


0265 


45 


1070 


9999 


68 


1070 


65 


1521 


1071 


69 


1071 


45 


1072 


1073 


70 


1072 


01 


1072 


0000 


71 


1073 


69 


1074 


1075 


72 


107^ = 


(00 


8541 


0000) 


73 


1075 


2k 


0109 


1076 


lk 


IO76 


69 


1077 


0100 


7 £ 


1077 
IO78 


2 1 


1078 


1076 


76 


69 


1079 


0150 


77 


1079 


20 


0267 


1081 


78 


0267 


(temp. 


store 


) 


79 


1081 


65 


1082 


1083 


80 


1082 = 


(00 


0000 


0001) 


81 


IO83 


10 


0109 


1084 


82 


1084 


69 


IO85 


0200 


83 


1085 


69 


1086 


0150 


8U 


1086 


98 


IO87 


1081 


85 


1087 


65 


0267 


1088 


86 


1088 


69 


1002 


0209 



Notes 

Scan left Go to 1A 

Scan rt to IR (ic) 
Test numeric. D: go to 

el3 or el7 
Test for q I: Go to 5R 
Change/** 7 to/^q 9 
/•q 9 -«R (Ic) 
/*q 7^»L.A. 
Test setup of q. If yes, 

go to el3 or el7 

Zero test T 

Error 

*A° - 1-^Sc 

Scan rt and test for first 

blank, A - .. 
Scan left to frT \ 
Store #(a) . (A k_1 ) 



00001 (i.e. blank)-^A 

Scan left 

Test for beginning of 

table 
# (a)-Wc 

Go to 1A 



k-1 



9^ 
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Page 5 of 10A 


Title - Addressor 










Came 
from JF 


Loc. of 
Inst. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 


1061+ 8? 


IO89 


93 


1091 


1090 


Test for r 


88 


1090 


01 


1090 


0000 


Error 


89 
7R 
193^ 92 


109L 
0266 


20 
69 


1092 
9999 


1929 

0200 


56 -* 1092 Go to 9A 

^(jt)9-*IR (Ic) Go to el3 

or el7 


93 


1095 


69 


0601 


0100 


Scan rt. to^" Go to 1R 


96 


1098 


65 


1503 


1099 


2ero test Ic IO9&WI3 


97 


1099 


4 5 


1115 


1127 




98 


1115 


69 


1116 


1117 




99 


1116 


(00 


8503 


0000) 


# left half of Ic 


100 


1117 


24 


0263 


1118 




101 


1118 


65 


1119 


1120 




102 


1119 


= (00 


1160 


0000) 


= el7 


103 


1120 


69 


0264 


1121 




104 
105 


1121 
1122 


22 
69 


0264 
0266 


1122 
1123 


Replace IR by Ic and chang* 
exits 0264,0265,0266 


106 


1123 


22 


0266 


1124 




107 


1124 


30 


0004 


1125 




108 


1125 


69 


0265 


1126 




109 


1126 


23 


0265 


1058 


I.: Go to 2A 


110 


1127 


65 


1515 


1128 


Test Qind; if/£0 


111 


1128 


45 


1182 


1129 


go to 7A 


112 


1129 


60 


1541 


1130 


(A')=#(a)-^U.A. 


113 


1130 


35 


0003 


1133 




114 


1131 


15 


1508 


1132 


(Q')=«(a)6 


115 


1132 


69 


1134 


0200 


*(a)6-*#(a) 


116 


1133 


21 


0109 


1131 


#(a)-*Sc 
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Page 6 of 10A 



Title - Addressor 



Came _^ 
from vjf 


Loc. of 


Op. 


Data 


Instr. 


Inst. 


Code 


Address 


Address 


117 


1134 


69 


1135 


0100 


118 


1135 


65 


1502 


1136 


119 


1136 


10 


0109 


1137 


120 


1137 


69 


1138 


0200 


121 


1138 


65 


1503 


1139 


122 


1139 


45 


1140 


1149 


123 


1140 


69 


1141 


0100 


12k 


1141 


60 


0109 


1142 


125 


1142 


69 


1149 


0200 


1150 126 


1143 


69 


1151 


1247 


127 


1144 


65 


1541 


1145 


128 


1145 


16 


1082 


1146 


129 


1146 


^5 


IO38 


1147 


130 


1147 


65 


1521 


1148 


131 


1148 


45 


1153 


1002 


132 


1149 


69 


0109 


1150 


133 


1150 


24 


1512 


1143 


13^ 


1151 


69 


1512 


1152 


135 


1152 


24 


0109 


1144 


136 


1153 


21 


1521 


II54 


137 


1154 


65 


1517 


1155 


138 


1155 


^5 


1156 


0340 


139 


1156 


21 


1517 


1157 


140 


1157 


69 


1518 


1158 


141 


1158 


24 


0109 


1159 


142 


1159 


69 


1304 


0150 


143 


1160 


67 


1509 


1161 


144 


1161 


69 


1162 


1202 


145 


1162 


45 


1173 


1163 


146 


1163 


69 


1164 


0100 



Notes 

Scan rt. from #(a) 
IR —>L.A. 
y*9 replaces row index 

Zero test Ic 



Store ^ro in place of Col. 
index 

A i+1 -_ A i 

Test A° for blank 
D: Go to 2A 
Hero test T 

I: Go to 1A 
Sc -»Sc. 



-I 



Sc 



Sc 



i?ero-yr 
2ero test Tq 
I: Go to 2B 

fero y- Tq 

Scq — *■ Sc 

Go to IQ 

Scan TAI for (ST)=" , ~ 

Non-zero zzp no r in TAI 

Scan rt. 
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Title - Addressor 
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Page 7 of 10 A 



from 



# 



Loc. of Op. 
Inst. Code 



11*7 
148 
149 
150 
151 
152 
153 
15* 
155 

1162 156 
15? 
158 

159 
160 
161 
162 
163 
164 
1096 l65 

^28 166 

160" 
169 
170 

171 
172 

173 
174 
175 
176 
1183 



1164 
II65 
1166 
1167 
1168 
II69 
1170 
1171 
0148 

1173 
1174 

1175 
1176 

1177 
1178 

1179 
1180 
1181 

1182 
1183 
1184 
1185 
1186 
II87 
1188 
II89 
1190 
1191 
1192 
1193 
1970 



16 
45 
67 
69 
69 
16 

45 
69 
20 

65 
46 

65 

16 

(00 

45 
69 

(00 
24 

46 
65 
69 
^5 
69 
16 

45 
65 
69 
69 
20 
21 
16 



Data 
Address 

1502 
1166 
1509 
1162 
II69 
1503 
1166 
0148 
1502 

1509 
0966 

1519 
1177 
0313 
1179 
II80 
1160 
1519 

1183 
1502 
1185 
1194 

1187 
0322 
1189 
1217 
1185 
1192 
1502 

1515 
0238 



Instr. 
Address 

II65 
1168 
1167 
1282 
0100 
1170 
0243 
0100 
1127 

1174 

1175 

1176 

1178 

0000) 

0702 

1181 

0000) 

0702 

0975 
1970 
1202 
1186 
0100 
1188 
1191 
1190 
1282 
0100 

1193 
1129 
1184 



Notes 

Test S=IR 

Resume scan for ST 



Test S=Ic 

I: Go to 10A 
^R — *IR 
Go to 5A (7 R if set by 

r-schema ) 
Test ST minus 
D: Go to 12B 

Test Ts ss e5 

I: go to 4R 

el7 — > Ts 
Go to 4R 

Test Qind^O I: Go to 8A 
Sca/nTAI for IR = row index 

of rec. b with 4^=2, 1</m,£8 
D: Go to 8A * 

Scan rt. and test for P03 

(see IB) 
Resume scan for/*q 7 

Scan rt. 
/Z&R /fsdRjmodCuL+l) 
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Title - Addressor 
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Page 8 of 10 A 



Came .^ 
from ff 


Loc. of 


Op. 


Data 


Instr. 


Inst. 


Code 


Address 


Address 


1185 177 


1194 


65 


1502 


1195 


178 


1195 


69 


1196 


1201 


179 


1196 


15 


1431 


1197 


180 


1197 


69 


0998 


0000 


181 


0998 


67 


1515 


0997 


182 


0997 


69 


O996 


1201 


183 


0996 


15 


1285 


0995 


184 


0995 


69 


0994 


0000 


185 


0994 


65 


1505 


0993 


186 


0993 


15 


1442 


0992 


187 


0992 


69 


0991 


0000 


188 


0991 


65 


1502 


0990 


189 


0990 


10 


0109 


0989 


190 


O989 


69 


0988 


0200 


191 


0988 


69 


0987 


0100 


192 


0987 


65 


0322 


0986 


193 


0986 


10 


0109 


0985 


194 


O985 


69 


0977 


0200 


195 


0984 


65 


1505 


O983 


196 


0983 


30 


0003 


0982 


195 


0982 


15 


O980 


0979 


196 


0980 = 


(00 


0000 


0009) 


197 


0979 


10 


0109 


O978 


198 


0978 


69 


0976 


0200 


0985 199 


0977 


69 


0984 


0100 


200 


0976 


69 


1183 


0040 


1182 201 


0975 


69 


0974 


1202 


202 


0974 


45 


0973 


0972 


203 


0973 


01 


0973 


0000 


204 


0972 


69 


0971 


0100 



Notes 



IR 



Form and Punch: "Ins (IR)" 

Qind 

Form and Punch: 
"Modulo ((Jind)" 
pctr = Ji 
Punch: "Store/t " 

IR -*TAI 

P03 -y-TAI 



;*-*-tai 



Decrement pctr Go to 7A 
Scan TAI for/Kg. = (Qind) 

Error 
Scan rt 
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Title - Addressor 



Came 
from 



1091 



lOkh 



# 


Loc. of 
Inst. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 


205 


0971 


16 


1^97 


0970 






1^97 


(00 


0000 


7018) 


Test for P01 


206 


0970 


U5 


0969 


0967 




207 


O969 


65 


1515 


0968 


Qind 


208 


0968 


69 


097^ 


1282 


Scan TAI for q. Go to 8A 


209 


0967 


69 


1097 


0100 


Scan rt 


210 


1097 


68 


8002 


IO96 


- (m+2)9 -*-Qind 


211 


IO96 


20 


1515 


1182 


Go to 7A 




1929 


65 


15^1 


1928 


# bmn (or CL mn)— yZc 




1928 


69 


1927 


0209 






1927 


69 


1926 


0100 






1926 


69 


0109 


1925 






1925 


2k 


1512 


1924 






192U 


65 


1092 


O676 


Go to 3R 




1388 


69 


1389 


0150 


Scan left 




1389 


69 


1C45 


0100 


Scan rt Go to 2a 
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Title - Phase 2a Addressor 



Game 
from 



1170 



Loc. 
Inst. 


of Op. 
Code 


Data 
Address 


Instr . 
Address 


Notes 






Compare KI with BI 




0243 


65 


0109 


0244 




0244 


98 


0199 


0245 




0245 


15 


0246 


8002 




0246 


= (6k 


2000 


0247) 




0247 


16 


1511 


0248 




0248 


45 


1166 


0196 


D: Go to 7A 


0196 


65 


0109 


0197 




0197 


15 


0063 


OI98 




OI98 


20 


0109 


1171 


I: Go to 7A 


0199 


15 


0194 


8002 




0194 


= (6k 


3000 


1996) 




1996 


35 


0005 


1995 




1995 


20 


0140 


1994 




1994 


65 


0109 


1993 




1993 


15 


1992 


8002 




1992 


(6k 


3001 


1991) 




1991 


30 


0005 


1990 




1990 


15 


0140 


0247 
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Page 1 of 9a 


Title - 


Q-Schema 










Came 


Loc. of 


Op. 


Data 


Instr. 


Notes 


from 


Instr. 


Code 


Address 


Address 




e 6 


1300 


21 


0257 


1302 


St. Zero in QL 




0257 = 


( 


\ 


) 






1502 


21 


0258 


1412 


St. zero in Qu 




0258 - 


( 


<5u 


) 




e 8 


1412 


65 


1413 


1414 






1413 » 


(00 


0259 


0000) 






I4l4 


69 


0251 


1415 


Set Qu to OX in 6.1 




IU15 


22 


0251 


1416 






I4l6 


69 


0252 


1417 


Set Qu to QL in 6.3 




1417 


22 


0252 


1418 






1418 


69 


0253 


1419 


Set Qu to QL in 6.4 




1419 


22 


0253 


1420 






1420 


69 


025 1 * 


1421 


Set Quto QL in 6.5 




1421 


22 


0254 


1422 






1422 


69 


1423 


1424 






1423 


(20 


0257 


1370) 


set Qu to QL in 6.2 




1424 


24 


0255 


1425 






1425 


69 


1426 


1427 






1426 - 


(69 


1386 


0200) 


set exit of box 7 to be e7.1 




1427 


24 


0256 


1304 




e 6.4 


1304 


69 


1305 


0100 


scan right 




1305 


99 


0253 


1308 


Test S for Address 




0253 


20 


0259 


1384 


S->QL(QU). Go to page 4,Q 




0259 - 


( 


QL 


) 






1308 


96 


0251 


1318 


Test S for a of deg.l. I: go 




0251 


20 


0259 


1312 


to page 2,Q.00 000 a(a)6-^QL(Qu) 




1312 


69 


1313 


0100 


Scan right 




1313 


99 


0255 


1315 


test S for address 


6.2 


0255 


20 


9999 


1370 


S-*-QL (Qu).Go to 2,Q 




1315 


93 


1373 


1317 


Test S for r. D: Go to 2,Q 




1317 


01 


1317 


0000 


error indication 
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Title - Q-Schema 



Came 


Loc. of 


Op. 


Data 


Instr. 




from 


Instr. 


Code 


Address 


Address 


Notes 


0255 


1370 


60 


0109 


1371 


Zero—jcL.A. Sc -^U.A. 




1371 


69 


1372 


0200 


Zero -*■ index of /lb. 




1372 


69 


1384 


0150 


scan left. Go to 4,Q 


1315 


1373 


69 


1310 


0150 


scan left 




1310 


69 


0109 


1311 


sc— >sc q 




1311 


21+ 


1518 


1316 






1316 


20 


1517 


0558 


storey in Tq. Go to 5,b 


1308 


1318 


97 


1319 


1327 


test S for q 




1319 


69 


0109 


1320 


sc — y Sc 1 




1320 


24 


1512 


0252 


*«e .#($)— =rsc ± 


6.3 


0252 


20 


0259 


1321 


00 000 nq7-*QL(QU) 




1321 


69 


1322 


1200 


test q setup 




1322 


45 


1326 


1324 


zero implies q is setup 




1324 


69 


1512 


1325 


sc 1 — »sc 




1325 


24 


0109 


1384 


Go to 4,Q 




1326 


01 


1326 


0000 


error indication 


3 e6.1 


1327 


93 


1328 


1329 


test S for r 




1329 


95 


1310 


1326 


test S for a of deg.2 




1328 


69 


0109 


1333 


sc— >sc. 




1333 


2k 


1512 


1334 






1334 


69 


1337 


0209 


Initialize Sc wither eq. 




1337 


69 


1335 


0100 


scan right 




1335 


99 


0254 


1340 


test for a(9) 




025^ 


20 


0259 


1324 


a(9)-^QL 




1340 


69 


1338 


0100 


scan right 




1338 


91 


13^1 


1330 


Test S for f 




1330 


01 


1330 


0000 


error 




1341 


16 


13^2 


1343 


14o8=^ of register for $*. 




1342 


(00 


0001 


4081) 


test for f^j. 




1343 


45 


1355 


1344 


D: Go to 4,Q 




1344 


69 


1374 


0100 


scan right 
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Title - Q-6chema 



NAVORD Report kkl2 



Page 3 of 9Q. 



Came 


Loc. of 


Op. 


Data 


Instr. 


from 


Instr. 


Code 


Address 


Address 


13^ 


137* 


16 


0261 


1376 




0261 « 


( 


QM 


) 




1376 


*5 


1377 


13*5 




1377 


01 


1377 


0000 




13*5 


69 


13*7 


0100 




13^7 


99 


1351 


13*8 




13*8 


96 


13*6 


13*9 




13^9 


95 


1366 


1350 




1350 


01 


1350 


0000 




13*6 


20 


0260 


1352 




0260 » 


( 


0-U 


) 


13*7 


1351 


20 


0260 


1358 




1352 


69 


1353 


0100 




1353 


99 


135k 


1365 




135* 


20 


0258 


1358 




1358 


69 


1359 


0100 




1359 


92 


1360 


1361 




1361 


01 


1361 


0000 




1360 


10 


1512 


1362 




1362 


69 


1363 


0200 




1363 


69 


1512 


136k 




136^ 


2k 


0109 


1428 




1365 


93 


1368 


1350 


13*9 


1366 


69 


1512 


1367 




1367 


2k 


1518 


1316 


1365 


1368 


69 


1366 


0150 



Notes 



error in q of minimization 

scan right 

test S for constant 

Test S for a of deg 1 

Test S for a of dg. 2 

error 

S-»QU 

U.b. -+-QU 

scan right 

test S for address 

scan right 

test S for h 

error 

Sc ,« #rmn -* U . A . 

Replace rmn by b in Veq.rmn 



Sc 1 -»-Sc 
Go to 5,Q 
Test S for r 
Sc.-*-Sc q. 
Go to 2,Q 
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Title - Q-Schema 



NAVORD Report 4412 



Page 4 of 9Q 



Came Loc. of 


Op. 


Data 


Instr. 


from Instr. 


Code 


Address 


Address 


1343 1355 


69 


1356 


1357 


1356 = 


(00 


1327 


0000) 


1357 


24 


1519 


1369 


1369 


69 


1512 


1378 


1378 


24 


1518 


0611 


e 7 1384 


60 


0109 


0256 


0256 


69 


1386 


0200 


e 7.1 1386 


69 


1387 


0100 


1387 


20 


0261 


1392 


1392 


69 


1393 


1200 


1393 


*5 


1473 


1394 


139^ 


01 


1394 


0000 


1473 


60 


I28I 


1474 


1474 


15 


0261 


1475 


1475 


69 


1395 


0200 


1395 


65 


1396 


1397 


1396 = 


(00 


0260 


0000) 


1397 


69 


0251 


1398 


1398 


22 


0251 


1399 


1399 


69 


0252 


1400 


11+00 


22 


0252 


1401 


1401 


69 


0253 


1402 


1402 


22 


0253 


1403 


1403 


69 


025^ 


1404 


1404 


22 


0254 


1405 


1405 


69 


1406 


1407 


1406 = 


(20 


0258 


1370) 


1407 


24 


0255 


1408 



Notes 



e 6.1-»-TS 



Sc^ »>^r-^-sc q. 

Go to 1, r 

Store zero In (Sc) 



scan right to nq7 
00000 ul7->QM 
test setup of q 

error 

Indicate q setup 

00000 uoj 

uq7-> Table of q's 



change QL to QU in 6.1 



change QL to QU in 6.3 



change QL to QU in 6.4 



change QL to QU in 6.5 



Replace QL by QU in 6 .2 
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HAVORD Report 4412 



Title — Q-Schema 



Page 5 of 9Q 



Come 
from 


Loc. of 
Instr. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 




1408 


69 


1409 


1410 






1409 


(69 


1428 


0200) 


change exit of 7 to e 8 




1410 


24 


0256 


1304 




1364 


1428 


65 


0257 


1429 


zero test QL 




1429 


45 


1430 


1435 






14J0 


69 


1432 


1201 


Remove 9 tag 




14J1 » 


(60 


0000 


0180) 


"Insert + - " see 1437 




1432 


15 


1433 


1434 






1433 » 


(60 


0000 


0229) 


"Modify - " 




1434 


69 


1435 


0000 


Punch "Modify (QL)" 




1435 


65 


0259 


1436 






1436 


69 


1437 


1201 


Remove 9 tag 




1437 


15 


1431 


1438 






1*58 


69 


1459 


0000 


*unoh "insert (QL)" 




1439 


65 


0261 


1440 


m 




1440 


69 


1441 


1201 


Remove 9 tag 




1441 


15 


1442 


1443 






1442 - 


(46 


0000 


0155) 


"Store" 




1443 


69 


1444 


0000 


Punch "Store (QM)" 




1444 


65 


0258 


1445 


Zero test QU 




1445 


45 


1446 


1467 


I: Go to 6,Q 




1446 


69 


1447 


1201 


Remove 9 tag 




1447 


15 


1433 


1448 






1448 


69 


1449 


0000 


Punch "Modify (QU)" 




1449 


65 


0260 


1450 






1450 


69 


1451 


1201 


Remove 9 tag 




1451 


15 


1431 


1452 






1452 


69 


1453 


0000 


Punch "insert (QU)" 




1453 


65 


1505 


1454 


fjctr L.A. 
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NAVORD Report 4412 



Page 6 of 9Q 



Title — Q-Schema 



Came 
from 


Loc. of 
Instr. 


Op. 
Code 


Data 
Address 


Instr. 
Address 




1454 


15 


1442 


1455 




1455 


69 


1456 


0000 




1456 


65 


1504 


1^57 




1^57 


30 


0004 


1458 




1458 


15 


1505 


1459 




1459 


20 


0262 


1332 




0262 
1552 


00 

69 


(0 ffl8.st«888°> 

lk6l 0040 




1461 


65 


0261 


1462 




1462 


69 


1466 


1201 




1463 


60 


8002 


1464 




1464 


15 


0262 


1465 




1465 


69 


1476 


0050 




1466 


16 


0068 


1463 


1445 


1467 


65 


0260 


1468 




1468 


69 


1469 


1201 




1469 


35 


0004 


1471 




1471 


15 


1504 


1472 




1472 


30 


0004 


1411 




1411 


20 


0262 


1461 


1465 


1476 


69 


0109 


1477 




1477 


2k 


1507 


1478 




1478 


60 


1522 


1479 




1479 


^5 


1480 


0999 




1480 


35 


0008 


1481 




1481 


11 


1482 


1483 




1482 = 


(18 


0000 


0000) 




1483 


*5 


0966 


1288 


1479 


0999 


21 


1519 


1000 



Notes 



Punch "Store p" 

00 (I.C.)0000-t>L.A. 



00(p)(l.C.) 



Decrement pctr by 1 
uq. 9 
Remove 9 tag 



Data punch:00(£)(l.C.)-^n<i-l 

(0068 )=00 0001 0000 

QU 

Remove 9 tag 



00(QU)(I.C.) in.L.A. 



Sc— »Sc 



Test sub = 0. 050,^8 



test xw»l 

0966= error stop. 12, b 
zero-»TS. Go to e9,A 
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NAVORD Report 4412 



Page 7 of 90. 



Title — QHSchema 



Came 


Loc. of 


Op. 


Data 


Instr. 


Notes 


from 


Instr. 


Code 


Address 


Address 




1288 


65 


0261 


1289 


^9 ->L. A. 




1289 


69 


1290 


1201 


Remove 9 tag 




1290 


15 


1431 


1291 






1291 


69 


1292 


0000 


Punch "insert u " 
1 




1292 


65 


1293 


1294 






1295 - 


(00 


0018 


0000) 


0018 « address in S.C.C .which 




1294 


15 


1295 


1296 


contains 1 x 10 




1295 - 


(65 


0000 


0225) 


"Add - " 




1296 


69 


1484 


0000 


Punch "Add l" 




1484 


65 


1522 


1485*^ 






1485 


30 


0002 


1486 ) 






i486 


16 


1487 


1488 / 






1487 « 


(00 


0000 


0052 )S 


test n* 2,4 




1488 


45 


1489 


1059 / 


I: Go to 8,Q 




1489 


16 


1487 


1490 






1490 


45 


1^91 


IO59J 


I: Go to 8,Q 




1491 


65 


0261 


1492 


00000 u 7-^-L.A. 




1492 


69 


1493 


1202 


scan TAI for q 




1493 


45 


1494 


1495 






1494 


01 


1494 


0000 


error 




1495 


69 


1496 


0100 


scan right 




1496 


16 


1497 


1498 






1497 - 


(00 


0000 


7018) 


test (S) -p01 




1498 


45 


1499 


1385 






1499 


65 


0261 


1375 






1375 


69 


1493 


1282 


resume scan 




1282 


24 


1203 


1244 




1498 


1385 


69 


1283 


0100 


scan right 
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NAVORD Report 4412 



Page 8 of 9Q 



Title — Q-Bchema 



Came 
from 


Loc. of 
Instr. 


Op. 
Code 


Data 
Address 


Instr. „ . 
Address Notes 




1285 


69 


1284 


1201 






1281+ 


15 


1285 


1965 






1285 - 


(00 


0000 


0235) 


"Modulo - " 




1965 


20 


1964 


1286 


Store "Modulo m+2" 




1286 


69 


1287 


0000 


Punch "Modulo m+2" 




1287 


65 


1505 


1297 


Pctr-*"L.A. 




1297 


15 


1442 


1298 


form "Store 0" 0=JTq 




1298 


69 


1299 


0000 


Punch "Store p" 




1299 


69 


1336 


0100 


Scan right in TAI from m+2 




1556 


91 


1339 


1299 


until end of table 




1539 


60 


0109 


1301 






1501 


15 


0261 


1303 


store ^ 7 in TAI 




1503 


69 


1306 


0200 






1306 


69 


1307 


0100 


scan right 




1307 


60 


0109 


1314 






1314 


15 


1309 


1323 






1309 - 


(00 


0000 


7028) 


store P02 in TAI 




1323 


69 


1063 


0200 






1063 


69 


1238 


0100 


scan right 




1238 


65 


1505 


1239^ 


) 




1239 


30 


0003 


1969 


y store p. 9 in TAI 




1240 


10 


0109 


1241 






1969 


15 


0980 


1240 


9 tag 




1241 


69 


1242 


0200_> 






1242 


69 


1243 


0040 


Decrement 0ctr by 1 




1243 


21 


1522 


1968 


Store zero in sub, Go to 9,Q 


1488 


1059 


69 


1460 


1202 


Scan to end of TAI 




1460 


69 


1963 


0150 


scan left. Go to 9>Q 
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NAVQRD Report 4412 



Page 9 of 9Q 



Title - Q-6chema 



Came 


Loc. of 


Op. 


Data 


Instr. 


Notes 


from 


Instr. 


Code 


Address 


Address 






1963 


21 


1964 


1287 


store zero in M 




1964 


( 


M 


) 


Go to 8,Q 


1243 


1968 


65 


1964 


1962 


Zero test M 




1962 


45 


1961 


0999 


I: Go to 6,Q 




1961 


65 


0261 


I960 


(i7^L.A. 




i960 


69 


1959 


1201 


Remove tag 




1959 


15 


1431 


1958 






1958 


69 


1957 


0000 


Punch "Insert uq" 




1957 


65 


1964 


1956 


(l964)«"Modulo m-t2' 




1956 


69 


1955 


0000 


Punch "Modulo m+2" 




1955 


65 


1505 


1954 






1954 


15 


1442 


1953 


Punch "Store JT " 




1953 


69 


1952 


0000 






1952 


69 


1951 


0100 






1951 


91 


1950 


1952 


scan to end of TAI 




1950 


60 


0109 


1949 






1949 


15 


0261 


1948 


Record \i 7 in TAI 




19^8 


69 


19*7 


0200 






1947 


69 


1946 


0100 


aean right 




1946 


60 


0109 


1945 






1945 


15 


0322 


1944 


P03-*TAI 




1944 


69 


1943 


0200 






1943 


69 


1942 


0100 






1942 


65 


1505 


1941 






1941 


30 


0003 


1940 






1940 


15 


0980 


1939 


J! -*TAI 
9. 




1939 


10 


0109 


1938 






1938 


69 


1937 


0200 






1937 


69 


0999 


0040 


decrement pctr. G 
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NAVORD Report 4U12 



Page 1 of 6 REC 



Title - Recursion 



Came Loc. of 


Op. 


Data 


Instr . 


from Inst . 


Code 


Address 


Address 


O789 


21 


0790 


0791 


0790 


(temp 


store 


) 


0791 


35 


0008 


0792 


0792 


21 


0793 


079k 


0793 


(Temp. 


store 


) 


079^ 


65 


8002 


0797 


0795 


16 


0^59 


0796 


0796 


U 5 


0959 


0799 


0797 


*5 


0795 


0798 


0798 


01 


0798 


0000 


0799 


65 


0793 


0800 


0800 


16 


1033 


0801 


0801 


^ 


0802 


0803 


0802 


16 


1033 


0803 


0803 


20 


08c4 


0805 


o8cA 


(temp. 


store 


) 


0805 


65 


1033 


0806 


0806 


16 


0793 


0807 


0807 


k6 


0816 


0808 


0808 


69 


0809 


0100 


0809 


98 


0810 


0808 


0810 


95 


0811 


0808 


0811 


69 


08l2 


0150 


0812 


16 


1^97 


0813 


0813 


^5 


0811 


081U 


081A 


69 


0109 


0815 


0815 


2k 


0790 


0816 


0816 


69 


0817 


0150 


0817 


16 


0322 


0818 


0818 


^5 


0816 


0822 



Notes 

Store Zero i n p 

v. K t. A. 
/hi J /JI2 



0—0 /n n 



•0793 



Test H2 = 1 

D: Go to 6 Rec. 

Error 

(1033 )=0— 02 

Store if ^=2,^ 

Store - if ^=5, + if n 1= l,3 

test n-L > 2 

Scan right 
Test for = 

Scan left 
Test for , 

# (>)-*P 



Scan left to V = P03 
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N&VORD Report 4412 



Page 2 -RFC 



Title - Recursion 



Came Loc of 


Op. 


Data 


Instr. 


from Inst . 


Code 


Address 


Address 


0819 


69 


0820 


0100 


0820 


98 


0821 


0819 


0821 


95 


0824 


0819 


0818 0822 


65 


0804 


0823 


0823 


46 


0819 


0833 


0824 


21 


0804 


0825 


0825 


69 


O826 


0100 


0826 


98 


0827 


0828 


0827 


95 


0857 


0828 


0828 


16 


1497 


0829 


0829 


45 


0825 


0830 


0830 


65 


08o4 


0831 


0831 


15 


OO63 


0832 


0832 


20 


0804 


0825 


0823 0833 


69 


0834 


0100 


0834 


96 


0836 


0835 


0835 


95 


0837 


0838 


0836 


69 


O838 


0100 


0837 


69 


O836 


0100 


0838 


69 


0839 


0100 


0839 


20 


0710 


0840 


084o 


69 


0109 


0841 


0841 


24 


1512 


0842 


0842 


69 


1500 


0843 


0843 


24 


0109 


0844 


0844 


69 


0845 


0150 


081*5 


98 


0846 


0847 


0846 


97 


0959 


0847 


0847 


16 


0710 


0848 


0848 


45 


0844 


0849 



Notes 

Scan rt for « of first eq. 
Test b)<0, i.e. H,j* 1>3 

Store in R 
Scan rt 
Test for « 
D: Go to 3 Rec 
test for , 

Add 00 0001 0000 to ft 

Scan right 

Test for a of degree 1 

Test for a of degree 2 



Scan right to q. inn, rec. 

index 
q, mn -^temp store 



Sc 



SCn 



# ( , ) after computer table 

— >r 0109 
Scan left 

Test for P (i.e. colon) 
D: Go to 6 Rec. 
Test for q, mn 
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Title - Recursion 



NAVORD Report M+12 



Page 3*EC 



Came Loc. of 


Op. 


Data 


Instr. 


from Inst . 


Code 


Address 


Address 


08J+9 


69 


0850 


0100 


0850 


69 


0851 


1201 


0851 


20 


08o4 


O852 


O852 


69 


1512 


0853 


0853 


2k 


0109 


085*+ 


085^ 


69 


0855 


0100 


0855 


98 


O856 


0854 


O856 


95 


0860 


0854 


C827 O857 


# 69 


O858 


0150 


O858 


98 


0859 


0857 


0859 


95 


O86O 


0857 


0860 


69 


O86I 


0150 


0861 


69 


0868 


0100 


0862 


16 


O863 


0864 


0863 


- (00 


0000 


7048) 


0864 


4 5 


0865 


0886 


0865 


65 


0109 


0866 


0866 


16 


0790 


O867 


O867 


45 


O86I 


0886 


0868 


9Q 


0869 


O862 


O869 


95 


0884 


O862 


O870 


65 


1505 


1967 


O87I 


30 


0003 


O872 


0872 


15 


0980 


0873 


0873 


10 


0109 


0874 


087U 


11 


0068 


0875 


0875 


69 


0876 


0200 


0876 


65 


1504 


0877 


0877 


30 


0003 


O878 


O878 


15 


0980 


O879 


0870 1967 


15 


0063 


0871 



Notes 

Scan rt. to N (qmn)=0XXX9 
Remove '9' and shift 
Store N (q. mn) in 08o4 

Sc-l-^-Sc ie. # q mn 
Scan rt. to first = 

Scan left 
test for = 

Scan left 
Scan right 

Test for Po4 i.e. for) 
I: Go to 4 Rec. 

Test Sc=P 

I: Go to 4 Rec 

test for = 

p ctr 
form o<c, 
'9' tag 

# (=)-2->U.A. 
o< s 9-^#( = )-2 
(I.C.)=o£k 
form oL n 9 



112 



NA.VORD Report MH2 













Page 4REC 


Title 


- Recursion 










Came 


Loc. of 


Op. 


Data 


Instr. 




from 


Inst. 


Code 


Address 


Address 


Notes 




0879 


10 


0109 


O88O 






0880 


98 


0881 


0882 






088l 


10 


0121 


O883 


#(=)-l ->U.A. 




0882 


11 


0221 


0883 






O883 


69 


0861 


0200 


•**1-»*#(»)-l 




0881+ 


65 


1505 


0885 






0885 


16 


08o4 


1982 


Subtract M from $c 


0864 
0867 


0886 


69 


0887 


1198 


B i — ^B i+1 




C887 


69 


0888 


O889 


record : end- vector 




0888 


(00 


0001 


0002) 


rec. mark in B° 




0889 


24 


1550 


O89O 






0890 


69 


0891 


0150 


Scan left 




0891 


98 


0892 


O898 


Test for » 




0892 


95 


0893 


O898 






0893 


69 


0894 


1198 


B 1 -^B i+1 




089I+ 


65 


0109 


0895 






0895 


30 


0003 


O896 


#(=}2 -*-B* 




0896 


15 


1033 


0897 






0897 


20 


1550 


0890 




0892 


0898 


16 


0322 


0899 


test for Po3=V 




0899 


45 


0890 


0900 






0900 


69 


0901 


1198 


B i -*-B i+1 




0901 


69 


0902 


0903 






0902 


(00 


0002 


0002) 


Record Begin-Vector- 




0903 


24 


1550 


0904 


Rec. mark in B° 




0904 


69 


0905 


0100 


Scan right 




0905 


96 


0908 


0906 


Test for a of deg. 1 




0906 


95 


O909 


0907 


Test for a of deg. 2 




0907 


69 


0910 


0100 


Scan rt. to q, mn 




0908 


69 


O907 


0100 




O885 


1982 


20 


1505 


0870 
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NAVORD Report U412 













Page 5REC 


Title 


- Recursion 










Came 


Loc. of 


Op. 


Data 


Instr. 


Notes 


from 


Inst. 


Code 


Address 


Address 






O909 


69 


0908 


0100 


Scan rt 




0910 


69 


0109 


0911 


Sc — ^-Sci 




0911 


2k 


1512 


0917 






0912 


69 


1210 


0913 


# TAI first cell ->Sc 




0913 


2k 


0109 


0914 






091k 


69 


0915 


0100 






0915 


91 


0916 


O91I+ 


test for end of TAI 




0916 


65 


0793 


0918 




0911 


0917 


20 


0793 


0912 


q, mn — >»temp storage 




0918 


10 


0109 


0919 






0919 


69 


0920 


0200 


•/*"q 7— TTAI 




0920 


69 


0921 


0100 


Scan rt 




0921 


65 


11+97 


0922 






0922 


10 


0109 


0923 


Pol -^TAI 




0923 


69 


092^ 


0200 






092^ 


69 


0925 


0100 






0925 


65 


0804 


0926 


H - no. of initial values 
+1 




0926 


30 


0003 


0927 




0927 


15 


' 0980 


0928 


'9' tag 




0928 


10 


0109 


0929 






0929 


69 


0930 


0200 


Fl9 TAI 




0930 


69 


1512 


0931 


Sc-l — y Sc 




0931 


2k 


0109 


0932 






0932 


69 


0933 


0100 


Scan rt. 




0933 


16 


0863 


093^ 


Test for Vok = ) 




093^ 


k5 


0935 


0938 






0935 


65 


0109 


0936 






0936 


16 


0790 


0937 


Test Sc = P 




0937 


k5 


0932 


0941 






0938 


69 


0939 


0150 


Scan left 
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Page 6 of 6H.SC 




Title 


- Recursion 












Came 
from 


Loc. of 
Inst. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 






0939 


16 


11*97 


091*0 


Test for comma 






09^0 


1*5 


0938 


091*1 








09I+I 


69 


091*2 


0150 


Scan left 






09^2 


98 


091*3 


09I+I 


Test for = 






0943 


95 


0951 


O9I* 1 * 








09H 


16 


11*97 


09l*5 


Test for , 






09^5 


*5 


091*1 


091*6 








091*6 


69 


09l*7 


II98 


B i _^ B i+1 






09^7 


65 


0109 


091*8 








091*8 


30 


0003 


091*9 


#(, )9 -**• 






091*9 


15 


0980 


0950 








0950 


20 


1550 


091*1 








0951 


69 


0952 


0150 


Scan left 






0952 


16 


0322 


0953 


Test for Po3 sV 






0953 


1*5 


095^ 


0957 








095 1 * 


15 


0322 


0955 








0955 


16 


1U97 


0956 


Test for Pol ■ , 






0956 


k5 


0951 


09I+I 








0957 


65 


1550 


0958 








0958 


69 


0326 


0209 


B° — -»Sc I: Go to IB 


081*6 


0959 


01 


0959 


0000 


Error 
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Page IX 



Title - Interpreter 



Game, 
from 


Loc. of 
Inst. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 


2B 


0300 


69 


0301 


0302 


See 0960, 12B 




0301 


(69 


0544 


0000) 


Set exit of 0543, 11 I 




0302 


24 


0543 


0303 


to be 0544 




0303 


69 


0304 


0305 






0304 


(69 


0327 


0100) 


Set exit of 1093, 29 I 




0305 


24 


1093 


0306 


to be 0327 




0306 


69 


1513 


0307 


# (comma) — >- Sc 




0307 


24 


0109 


0308 






0308 


69 


0309 


0150 


Scan left 




0309 


91 


0310 


0308 


test for f 




0310 


69 


0109 


0311 


#(#,)-*-& 




0311 


24 


0904 


0312 




0312 


21 


0906 


0313 


Zero —*■ L . Go to 2 I 


1R 


o4i6 


69 


0417 


0418 


See 0964, 12B 




0417 


(69 


1115 


0000) 


Set exit of 543, 11 I 




04l8 


24 


0543 


0419 


to be 1115 




0419 


69 


0420 


0305 


Set exit of 1093, 29 I 




0420 


(69 


0601 


0100) 


to be 0601 and go to 
0305 


0324 


0421 


95 


0325 


1129 


test for « 




0422 


16 


0423 


0424 






0423 


(00 


0000 


7018) 


test for comma 




0424 


45 


0326 


0325 


Go to 2 I 


0642 


0425 


01 


0425 


0000 


Error 


0421 


1129 


65 


0140 


0422 
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Title — Interpreter 



Came. 


Loc. of 


Op. 


Data 


Instr. 


frQm 


Inst. 


Code 


Address 


Address 




0313 


69 


0314 


0150 




031^ 


24 


0901 


0315 




0315 


60 


0316 


0317 




0316 


(00 


0001 


0000) 




0317 


10 


0906 


0318 




0318 


21 


0906 


0319 




0319 


69 


0901 


0320 




0320 


99 


0321 


0323 




0321 


69 


0322 


0150 




0322 


96 


0313 


0314 




0323 


91 


1975 


0324 




0324 


98 


0421 


0326 


0424 


0325 


20 


0906 


0339 


0424 


0326 


01 


0326 


0000 




1975 


65 


0140 


0327 




0327 


16 


0328 


0329 




0328 


(00 


0001 


4511) 




0329 


46 


0330 


0335 




0330 


15 


0328 


0331") 




0331 


30 


0001 


0332 > 




0332 


69 


0333 


8002J 




0333 


11 


0906 


0334 




0334 


46 


0335 


0339 




0335 


60 


1506 


0336 




0336 


10 


0316 


0337 




0337 


21 


1506 


0338 




0338 


21 


0907 


0342 



Page 2X 

Notes 

Scan left 

Distrib. — >-0901 (Temp) 

Add 1 to L 



(0901) -** Distrib . See 

Test S for address 

Scan left 

Test S for a of deg.l 

Test S for f 

Test for = or 5 . D: go to 

1 I 

Zero -*-L. Go to 31 

Error 

Test S for aux f 



Go to Li(f) 
Deg f-»-U.A. 
Test L > deg f 



Add 1 to Int. ctr 



Int.ctr. 
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Page 31 



Title — Interpreter 



Came 
from 


Loc. of 
Instr. 


Op. 

Code 


Data 
Address 


Instr. 
Address 


Notes 




0339 


69 


0340 


0341 






03^0 


(00 


0337 


0000) 


J<U* 




0341 


24 


0907 


0342 




0338 


0342 


69 


0904 


0343 


G-*Sc 




0343 


24 


0109 


0344 






0344 


69 


0345 


0150 


Scan left 




0345 


69 


0346 


0100 


Scan right 




0346 


16 


0328 


0347 


Test S for aux f 




0347 


46 


0348 


0900 


I:go to error stop, 27 I 




0348 


15 


0328 


0349"^ 






0349 


30 


0001 


0350 V 


Go to Li(f). 34 I 




0350 


69 


0351 


8002J 


Deg f-»>U.A. 




0351 


21 


0905 


0352 


Deg f-*D 




0352 


20 


0706 


0353 


Zero — > su Aux 
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Title — Interpreter 



Page kX 



Came 
from 


Loc. of 
Instr. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 




0553 


69 


0904 


0354 


G-»-Sc 




0354 


24 


0109 


0355 






0355 


69 


0356 


0357 






0356 


(20 


0908 


0371) 


Initialize 0370 




0357 


24 


0370 


0358 






0358 


69 


0359 


0360 






0359 


(20 


0917 


0379) 


Initialize 0378 




0360 


24 


0378 


0361 






0361 


69 


0362 


0363 






0362 


(21 


0917 


0384) 


Initialize 0383 




0363 


2k 


0383 


0364 






0364 


60 


0706 


0365 


Zero test Su Aux 




0365 


kk 


0900 


0366 


D:Go to stop, 27 I 




0366 


69 


0367 


0100 


Scan rt . 




0367 


2k 


0901 


0368 


Distrib -> 090l(Temp ) 




0368 
0370 


69 
20 


0370 
9999 


1201 
0371 


truncate and shift 

S->0K 

D = 0908 - 0916 




0371 


60 


0109 


0372 


Zero— ^cell which has 




0372 


69 


0373 


0200 


Just been scanned 




0373 


69 


0901 


0374 


(0901)— > Distrib .See 0367 




037^ 


96 


0375 


0381 


Test S for a of deg 1 




0375 


69 


0376 


0100 


Scan right 




0376 


69 


0378 


1201 


S-*MK 




0378 


20 


9999 


0379 


D * 0917 - O925 




0379 


60 


0109 


0380 


Zero -* cell which has 




0580 


69 


0384 


0200 


Just been scanned 
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Page 51 



Title — Interpreter 



Came Loc. of Op. Data Instr. Mote8 

from Instr. Code Address Address 

0581 99 0583 0382 Test for address 

0382 01 0382 0000 Error 

0383 21 0917 038^ Zero-*MK. D=0917-0925 

038^ 60 0905 0385 

0385 11 0316 0386 Decrease value of D by 1 

0386 21 0905 0387 

0387 ^ 0388 0397 Zero test D. I:Go to 6 I 

0388 60 0370 0389 

0389 10 0316 0390 Increment 0370 

0390 21 0370 0391 

0391 60 0383 0392 

0392 10 0316 0393 Increment 0383 

0393 21 0383 039 1 * 
039*v 60 0378 0395 



0395 



10 0316 0396 Increment 0378 



0396 21 0378 0366 Go to If I 
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Title - Interpreter 



Page 61 



Came 
from 

0387 



meta 
gen. 



0509 



Loc.of 

Instr. 

0597 
0598 

0399 
0400 
0401 
0402 
0403 
04o4 

0405 
04o6 

0407 
04o8 
0409 
0410 
0411 
0412 
0413 
04l4 
0415 
0369 
0377 
0^79 
0997 
0998 
0999 



Op. 
Code 

69 

24 

69 
69 
16 
46 

15 
(00 

30 

65 

30 

15 
(00 

10 

69 
60 

44 

69 
24 

69 
95 
60 
11 
15 
69 



Data Instr. 
Address Addresss 



0904 
0109 
0400 
0401 
0328 
0403 
0404 
0001 
0001 

0907 
0003 

0409 
0000 

0904 

0412 

0906 

04l4 

0904 
0109 

0377 

0479 
0109 
0063 
0409 

0523 



0398 
0399 
0150 

0100 
0402 

0900 
0405 

3511) 
8002 

04o7~""\ 
04o8 I 

0410 y 
0009) j 

0411 j 
0200__y 

0413 

0426 
0415 
0308 

0100 

0369 

0997~") 

0998 f 
0999 

0200 _j 



Notes 
G->Sc 



Test for aux f 
I:Go to stop, 27 I 

Go to meta generator of f 
7, 35, 36 I 



replace f by./ or Int ctr 



Zero test L 

I: Go to 9 I 

G->Sc 

Go to 1 I 

scan rt for = sign 



00009 —>#(=)-? 
D: Go to 10 I 
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Page 7X 

Title — Interpreter; 

Set up meta generator for binary library functions 



Notes 



Came 
from 


Loc. of 
Instr. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


+ 


1302 


69 


1030 


1031 




1030 


(65 


0000 


0225) 




1031 


24 


0464 


0450 


X 


1304 


69 


1032 


1031 




1032 


(65 


0000 


0428) 


- 


1303 


60 


0909 


1033 




1033 


11 


0340 


1034 




1034 


44 


1035 


1037 




1035 


69 


1036 


1031 




1036 


(66 


0000 


0225) 




1037 


69 


1038 


1031 




1038 


(69 


0000 


0423) 


• 


1305 


60 


0909 


1039 




1039 


11 


03^0 


1040 




io4o 


44 


1041 


1043 




1041 


69 


1042 


1031 




1042 


(65 


0000 


0529) 




1043 


69 


1044 


1031 


foo 


io44 
1300" 


(69 
00 


0000 
~0000~ 


0226) 
0426 



S.C.C. "Add" -> Op. 

I: Go to 7a I 
S.C.C. "Mult"— > Op. 



Test 02 



S.C.C. "Subt"->0p 



S.C.C. "Rev Subt"->0p 



Test 02 = p 



S.C.C. "Div"— vOp 



S.C.C. "lnv.Div"-^Op 



Go to 9 I 
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Page 7al 



Title - Interpreter: 

Meta-generator for binary library functions: 1. , ., 



Notes 



Came Loc. of 


Op. 


Data 


Instr. 


from Instr . 


Code 


Address 


Address 


1072 








1031 0^50 


60 


0909 


0451 


0^51 


11 


0340 


0453 


0^52 


45 


0467 


0473 


0^53 


44 


0474 


0454 


0454 


69 


0908 


0455 


0^55 


24 


0909 


0456 


0456 


65 


0917 


0457 


0457 


20 


0918 


0458 


0458 


45 


0459 


0462 


0459 


15 


0460 


0461 


0460 


(65 


0000 


0093) 


0461 


69 


0462 


0000 


0462 


65 


0909 


0463 


0463 


15 


0464 


0465 


0464 = 


( 


OP 


) 


0465 


69 


0466 


0000 


0466 


60 


0907 


0452 


0467 


11 


0340 


0468 


0468 


44 


0469 


0473 


0469 


65 


0907 


0470 


0470 


15 


0471 


0472 


0471 


(46 


0000 


0155) 


0472 


69 


0473 


0000 


0473 


00 


0000 


0406 


)453 0474 


60 


0908 


0475 


0475 


11 


0340 


0476 


0476 


44 


0477 


0486 


0477 


65 


0917 


0478 


0478 


45 


0480 


0482 



Test 0'£ = p 

Zero test M- 
Punch "Mod (Mg)" 



Punch "0p(0 2 )" 



Test (V) = p 



Punch "Store (V)" 

Go to 6 I or to 1073,281 
if set by Br. See 1070, 28l 
Test 0^= p 



Zero test 



M l 
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Page 8x 



Title — Interpreter 

Meta generator for binary library functions 



Came 
from 


Loc. of 
Instr. 


Op. 
Code 


Data 
Address 


Instr. 
Address 




0480 


15 


0460 


0481 




048l 


69 


0482 


0000 




0482 


65 


0908 


0483 




0483 


15 


0484 


0485 




048»* 


(60 


0000 


0180) 




0485 


69 


0486 


0000 




0486 


65 


0918 


0458 



Notes 

Punch "Mod (l^)" 

Punch "lns(0 1 ) M 

M»-*-L.A. Go to 7a I 
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Title — Interpreter: 

Non-Rec End Procedure 



Page 9j 



Came Loc. of 


Op. 


Data 


Instr 


1 


from Instr. 


Code 


Address 


Address 


0413 0^26 


60 


0904 


0427 


0427 


11 


0428 


0429 


0428 


(00 


9429 


0000) 


0429 


44 


1100 


0900 


1102 0435 


69 


0436 


0150 


0436 


95 


0437 


0705 


0437 


16 


0438 


0439 


0438 


(00 


0000 


5008) 


0439 


45 


0760 


0440 


0440 


69 


0441 


0150 


0441 


98 


0444 


0442 


0442 


93 


0568 


0443 


0443 


92 


0635 


O44o 


0444 


94 


0643 


0445 


0445 


16 


0423 


0446 


0446 


45 


0447 


0501 


0447 


15 


0423 


0448 


0448 


16 


0449 


0500 


0449 


(00 


0000 


7038) 


0500 


45 


0440 


0738 


3446 0501 


69 


0507 


0502""^ 


0502 


24 


0506 


0503 / 


0503 


60 


1550 


0504 


0504 


30 


0001 


0505 > 


0505 


65 


8002 


0506 




0506 


99 


9999 


9999^ 




0507 


16 


0508 


0509 


0508 


(40 


0000 


0000) 


0509 


45 


0510 


0369 


0510 


60 


1519 


0511 





Notes 



test G =W i.e. aux f 
Wj-9429 Wi in 0430-0434 
D:Go to 141 I:Go to 271 
Scan left 
Test for =. I:Go to 191 

Zero test a.n of - n n 
D:Go to 211 
Scan left 
Test alphabetic 
Test for r D:Go to 11 I 
Test for b(min) D:Go to l4l 
Test for d D:Go to 14 I 
Test for , 



Test for V, *.-»To3 



I:Go to 15 I 



isolate tag of B 



test for phase tag 
I: Go to 6 I 



T 



s 



►U.A. 
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Title — Interpreter: 

Non Rec end procedure 



Page 10 X 



Came Loc . of 
from Instr . 


Op. 
Code 


Data 
Address 


Instr « Notes 
Address Botes 


0511 


kk 


0512 


0515 


Test T„= 


0512 


11 


0513 


051^ 


Test T = (6.1 


0513 - 


(00 


1327 


0000) 




051^ 


kk 


0571 


0515 


D: Go to 12 I 


0515 


69 


0516 


0100 




0516 


98 


0517 


0515 


Scan rt to = sign 


0517 


95 


0518 


0515 




0518 


69 


0519 


0150 


Scan left 


0519 


69 


0520 


0150 


Scan left 


0520 


98 


0560 


0521 


test (= )-2 for a s . Se 


0521 


69 


0522 


0100 


Scan rt for = sign 


0522 


95 


0523 


0521 




0523 


65 


1504 


052^ 




052^ 


30 


0003 


0525 


replace = sign by X 


0525 


10 


0109 


0526 




0526 


69 


0893 


0200 


D: Go to 141 


089** 0527 


65 


1511 


0528^ 


BI » 1511 


0528 


30 


0005 


0529 




0529 


10 


0109 


0530 




0530 


98 


0531 


0532 




0531 


10 


0221 


0533 


0221 - 00 1001 0000 


0532 


11 


0121 


0533 


0121 = 00 1000 0000 


0533 


69 


053^ 


0200 


► HI -*-#(-)+!, y?(=)+2 


053^ 


60 


1511 


0535 




0535 


35 


0005 


0536 




0536 


30 


0005 


0537 




0537 


65 


8003 


0538 




0538 


10 


0109 


0539 




0539 


10 


0316 


05^0 




O^ 


69 


0895 


02oo 


Go to 05^1 (See l4l) 



301 
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Page 11X 



Title — Interpreter: 

Non Rec . end procedure 



Came Loc . of 
from Instr . 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 


0541 
0542 - 


65 
(00 


0542 
0000 


0543 
0080) 


S.C.C. "No Op"— *-X 


05*0 


69 


9999 


0000 


D: 0544 or 1115 See 1 I 


0544 


65 


1550 


0545 




05^5 


69 


0546 


1201 


Test B° for stop 


0546 


45 


0547 


1132 


I: Go to 20 I 


0547 


20 


1512 


0548 


B°-^Sc 1 


0548 


69 


0549 


0502 


Isolate tag of B 


0549 


16 


0550 


0551 




0550 * 


(30 


0000 


0000) 


Test B min tag 


0551 


45 


0552 


1996 


I: go to 33 I 


0552 


69 


0553 


1199 


■r,i+l ^ „i 
B — **B 


0553 


69 


1512 


0554 


Sc,— >Sc 


0554 


24 


0109 


0555 




0555 


69 


0556 


0150 


Scan left to # bmn— 1 


0556 


69 


0557 


0558 




0557 = 


(00 


0000 


0340) 


Read in phase 2a and 


0558 


24 


0024 


0559 


go to 2B 


0559 


70 


0007 


0000 




0520 0560 


69 


0063 


0561 




0561 


24 


0562 


0563 


1-*S 


0562 


( 


s 


) 




0563 


69 


0564 


0565 




0564 


(24 


0109 


0521) 


Set exit 0704, l8l 


0565 


24 


0704 


0566 


to be 0521 


0566 


69 


0109 


0567 


Sc — vSc. 


0567 


24 


1512 


0686 


I: Go to 17 I 


0442 0568 


69 


0569 


0570 


Set exit 0704,l8l 


0569 = 


(24 


0109 


0440) 


to be 0440 
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Page 121 



Title — Interpreter: 

Non ree. end procedure 



Came 
from 


Loc. of 
Instr. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 




0570 


24 


0704 


0646 


I: Go to 17 I 


1110 












0514 


0571 


65 


1505 


1113 


I: Go to 20 I 


1115 


0572 


30 


0001 


0573 


test R° for blank 




0573 


45 


0587 


0574 






0574 


60 


1519 


0575 


Zero test T g 




0575 


1*5 


0578 


0576 






0576 


69 


0577 


0558 


Read in phase 2a and 




0577 


(00 


0000 


1058) 


go to 1058, 2A 


0575 


0578 


11 


0579 


0580 






0579 


(00 


1327 


0000) 


Test T g =e6.1 




0580 


45 


0600 


0581 


D: Go to 13 I 




0581 


20 


1519 


0582 


0-^T s 




0582 


69 


1518 


0583 


Scq-»-Sc 




0583 


24 


0109 


0584 






0581* 


69 


0585 


0150 


Scan left to ** r-l 




0585 


69 


0586 


0558 


Read in phase 2a and 




0586 


(00 


0000 


1304) 


go to 1304, 1Q 


0575 


0587 


60 


1519 


0588 


Zero test Tg 




0588 


45 


0598 


0589 






0589 


65 


1531 


0590 






0590 


69 


0591 


1201 


R°— ^SCj^ 




0591 
0592 


2k 
69 


1512 
0593 


0592 
1249 


r^Ur 1 




0593 


69 


1512 


0594 


SCj— * Sc 




059^ 


2k 


0109 


0595 






0595 


69 


0596 


0150 


scan left to#r-l 




0596 


69 


0597 


0558 


read in phase 2a and 




0597 


(00 


0000 


0627) 


go to 0627, IR 


0588 


0598 


11 


0579 


0599 


Test T = e6.1 
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Page 13X 



Title — Interpreter: 

Non Rec . end procedure 



Came 


Loc. of 


Op. 


Data 


Instr. 


from 


Instr. 


Code 


Address 


Address 




0599 


kk 


1117 


0589 


1117 










0580 


0600 


69 


1210 


0601 




0601 


2k 


0109 


0602 




0602 


69 


0603 


0100 




0603 


91 


060^ 


0602 




06C4 


67 


1509 


0605 




0605 


10 


0109 


0606 




0606 


69 


0607 


0200 




0607 


69 


0608 


0100 




0608 


65 


1502 


0609 




0609 


10 


0109 


0610 




0610 


69 


06ll 


0200 




06ll 


69 


0612 


0100 




0612 


65 


1503 


0615 




0613 


10 


0109 


0611* 




06lk 


69 


0615 


0200 




0615 


69 


0616 


0100 




0616 


65 


1511 


0617 




0617 


30 


0005 


06l8 




0618 


10 


0109 


0619 




O619 


69 


0620 


0200 




0620 


69 


0621 


0100 




0621 


65 


1511 


0622 




0622 


35 


0005 


0623 




0623 


11 


8003 


062k 




062l+ 


30 


0005 


0625 




0625 


10 


0109 


0626 




0626 


69 


0627 


0200 




0627 


69 


0628 


0100 




0628 


65 


1505 


0629 



Notes 

D: Go to 20 I I: Go to 12 I 

<#TAI - l-*-Sc 

Scan rt. for blank 
in TAI 

St-*TAI 

i.e.#-(re^)3-^TAI 
Scan rt 

^-^TAI 

Scan rt 



I C -»TAI 



Scan rt 



Bl(upper half)— >TAI 



Scan rt 



BI (lower half)— ^ TAI 



Scan rt 
P ctr 



132 



NAVORD Report 4412 



Page 141 



Title — Interpreter: 

non— rec end procedure 



Came 


Loc. of 


Op. 


Data 


Instr. 


from 


Instr. 


Code 


Address 


Address 




0629 


30 


0003 


0630 




0630 


15 


0409 


0631 




O631 


10 


0109 


0632 




0632 


69 


1116 


0200 


1116 


0633 


69 


063^ 


0558 




0634 


(00 


0000 


1160) 


0443 


0635 


69 


0109 


O636 




0636 


24 


1512 


0637 




0637 


69 


0638 


II98 




O638 


65 


1512 


0639 




0639 


30 


0003 


0640 




0640 


15 


0641 


0642 




0641 


(00 


0000 


0003) 




0642 


20 


1550 


0425 


o444 


061*3 


69 


06kk 


0645 




0644 


(00 


0000 


0440) 




0645 


24 


1011 


1000 


0632 


1116 


69 


0633 


0040 


0526 


0893 


69 


0541 


0894 




089^ 


2k 


0895 


0527 




0895 


( 


exit 


) 


0429 


1100 


10 


1101 


1102 




moi 


(00 


0195 


0000) 




1102 


45 


0435 


1103 




1103 


65 


1509 


1104 




1104 


69 


1105 


1201 



Notes 



p ctr (^9)-*-TAI 

read in phase 2a and 
go to 1160, 6 A 
Sc-*Sc, 



B 1 -^ 1 - 1 



#(b)3-*B° 

Go to incomplete stop 1, I 

set exit of 1011,161 to be 
Go to 161 ^° 

Decrement fictr by 1 

Go to 10 I 



Test G = Wo + 1 i.e. storage r 

St->L.A. 

shift pnd truncate .Go to 15 I 
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Title — Interpreter: v en & procedure for non— rec b 



Came 
from 

0500 



07^5 



110^ 



Loc. of 
Instr. 

0758 
0739 
07^0 
07^1 
07^2 
07^3 
07^4 

07^5 
07^6 
07^7 
07^8 

07^9 

0750 

0751 

0752 

0753 = 

075^ 

0755 

0756 

0757 

0758 

0759 

1105 

1106 

1107 
1108 
1109 
1110 
1111 
1112 



Op. 
Code 

69 
2k 

69 
98 
95 
69 
69 
99 
69 
2k 

69 
97 
01 
69 
15 

(vr 

69 
69 
69 
16 

1*5 
01 
20 
69 
98 
9^ 
16 
u 5 

69 
(00 



Data Instr. 
Address Address 



0109 
1512 
07M 
07^2 

07^3 

<yjkk 

07^5 
07^6 
1512 
0109 
07^9 
0751 
0750 
0752 
0753 
0000 

0755 
(Mo 

0757 
0508 

0759 
0759 
0109 
1107 
1108 
1111 
0^23 
1106 
1112 
0000 



0739 
07^0 
0100 
07^0 

07^0 
0150 
0150 
0756 

07^7 
07^8 

0100 

0750 

0000 

1201 

075^ 

0185) 

0000 

0150 
0502 
0758 

07^+6 
0000 
1106 
0150 
1106 
1109 
1110 

0571 
06^5 

0571) 



Page 15 j 

3 


Notes 


Sc -^Sc, 


Scan rt 


Test for - 


scan left 


scan left 


Test for as in#"(=) 


Sc,—*Sc 


i .e .#V — >Sc 


scan rt 


Test for M 7 



Error 

00 M -0000 L.A. 



Punch: Increment At " 



Scan left. Go to 91 

test B° for phase mark 

Error 

# req— *Sc See 1^1 

scan left 

Test for d 
Test for comma 
I: Go to 121 
Go to 141 
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Title — Interpreter : Dump end procedure 



Page 16X 



Came 
from 


Loc. of 
Instr. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


0807 
0645 
0863 


1000 


16 


1001 


1002 




1001 « 


(00 


0000 


4008) 




1002 


35 


0008 


1003 




1003 


20 


0902 


1004 




100U 


44 


101k 


1005 




1005 


16 


1006 


1007 




1006 « 


(10 


0000 


0000) 




1007 


45 


1008 


1012 




IOO8 


65 


1009 


1010 




1009 = 


(00 


0025 


0151) 




1010 


69 


1011 


0000 




1011 


00 


0000 


9999 




1012 


65 


1013 


1010 




1013 - 


(00 


0015 


0151) 




ioi4 


11 


1015 


1016 




1015 - 


(00 


0000 


0006) 




1016 


46 


1018 


1017 




1017 


01 


1017 


0000 




1018 


10 


1015 


1019 




1019 


65 


8003 


1020 




1020 


35 


ooo4 


1021 




1021 


15 


1022 


1023 




1022 - 


(46 


0326 


0155) 




1023 


69 


1024 


0000 




1024 


65 


0902 


1025 




1025 


45 


1005 


1011 



Notes 



obtain subscript of dmn 



n-M>902 
Zero test m 

test n=l 



Punch: "Punch and skip 
2 lines" 

08S% 

I :<M0,0571,0808 (See 0643, 

1111,0863,0805) 
"Punch and skip 1 line" 



test m > 5 



error 



Punch: "Store in (0326-wa)" 



test n - 
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Title — Interpreter: Store End— Procedure 



Came 
from 

0859 
0570 



Loc. of Op. 
Instr . Code 



Data Instr. 
Address Address 



O885 
0567 



0646 
0647 
0648 
0649 
0650 
O65I 
0652 
0653 
0654 

0655 
0668 
0669 
0670 
0671 
0672 
0673 
0674 

0675 
0676 

0677 
0678 

0679 
0680 
0681 
0682 
0683 
0684 
0685 

0686 
0687 



69 
24 

65 
69 
45 
01 
65 
15 
20 
00 
69 
69 
15 
69 
69 
24 

69 
16 
4 5 
60 
11 
(00 
45 
01 

69 
99 
69 
20 

66 
15 



0109 

1512 

0140 

O650 

O65I 

0651 

0109 

0655 

0109 

0002 

O669 

0670 

0460 

0672 

1500 

0109 

0675 

1217 

0677 

0109 

0679 

8600 

0674 

0681 

0683 

0684 

0685 

0562 

0562 

0316 



0647 
0648 
0649 
1202 
O652 
0000 
0653 
0654 
0668 
0000 

0100 

1201 
0671 
0000 
0673 
0674 
0150 
O676 
0682 
O678 
0680 
0000) 

0681 

0000 
0100 

0681 

1201 

0686 
0687 
0688 



Page 171 



Notes 

Sc -> Sc 

r-»-L.A. 

Search table for r 

error 

Add 2 to sc. i.e. scan 
rt. 4 places 



scan rt to a (r)=u 9 
s r 

Truncate and shift 

(0460) = S.C.C. "Modify" 

Punch: "Mod. u " 
r 

^*comma->-Sc 



scan left 
test for r 



error 
scan rt 
obtain N(r) 
truncate and shift 
N(r)-yS 

test S = 1 
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Title - Interpreter: Store End-Procedure 



Page 181 



Came Loc. of 
from Instr. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 


0688 


45 


0689 


0691 


test S » 1 


O689 


15 


1505 


0690 


s^ti 


0690 


20 


1505 


0692 


sub (S^-l) from £ctr 


0691 


65 


1515 


0692 


obtain a from Bctr 
s 


0692 


15 


ovri 


0693 


(0V71)=S.C.C. "store" 


0693 


69 


0695 


0000 


Punch: "Store in a 
s 


0694 


69 


0703 


0040 


Decrement Bctr 


0695 


69 


1512 


0696 


Sc'-*Sc 


O696 


2k 


0109 


O697 




0697 


69 


0698 


0100 


scan rt 


O698 


95 


0699 


0697 ~~ 




0699 


65 


1505 


O7OO 




0700 


30 


0003 


0701 




0701 


15 


0409 


0702 




0702 


10 


0109 


1130 


y record a 9 in # (= )-2 


1130 


11 


0063 


1131 




1131 


69 


0694 


0200 ^ 




0703 


69 


1512 


0704 


Sc»-*Sc 


0704 


2k 


0109 


9999 


I: go to 0521,101 or to 
C440, 91 or to 0854,251 
or to 0868,26l. See 

0563,0568,11 1; 0856, 

251, 0881, 261. 
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Title 


— Interpreter: 
End— Procedure for 


Initial 1 


Page 19:1 
Values Recursion 


Came 
from 


Loc. of 
Instr. 


Op. 
Code 


Data Instr . 
Address Address 


Notes 


C456 


0705 


21 


0706 


0707 


Zero -»-H 




0706 


( 


M 


) 






0707 


69 


0708 


0150 


scan left 




0708 


98 


0709 


0710 






0709 


95 


0715 


0710 






0710 


16 


0423 


0711 


test for comma 




0711 


^5 


0707 


0712 






0712 


60 


0706 


0713 






0713 


10 


0063 


0714 


Add 1 to M 




0714 


21 


0706 


0707 






0715 


69 


0716 


0150 


scan left 




0716 


69 


0717 


0150 


scan left 




0717 


69 


0718 


1201 


truncate and shift 




0718 


15 


0706 


0719 


add a to M 




0719 


15 


0471 


0720 


Punch: "store (M)" 




0720 


69 


0721 


0000 






0721 


69 


0722 


1199 


b^Ub 1 




0722 


65 


1550 


0723 






0723 


16 


0724 


0725 


test B° for marks indica 




0724 


(00 


0002 


0002) 


first equation 




0725 


45 


0726 


0730 






0726 


65 


1550 


0727 


B°-^Sc 




0727 


69 


0728 


0209 






0728 


69 


0729 


0558 


Read in phase 2a, and 




0729 


(00 


0000 


0326) 


go to 0326, IB 


3725 


0730 


69 


0731 


1199 


B^LyB 1 




0731 


65 


1550 


0732 


# (=)— K3C 




0732 


69 


0733 


0209 






0733 


69 


0734 


0150 


scan left 




073^ 


69 


0735 


0100 


scan rt to ■ n,n 
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Page 201 



Title — Interpreter: 

End procedure for initial values recursion 



Came 
from 


Loc. of 
Instr. 


Op. 
Code 


Data 
Address 


Instr. 
Address 




0T55 


20 


1522 


0756 




0756 


69 


0757 


0558 




0757 


(00 


0000 


0510) 


0571 


1115 


15 


0V71 


1114 




1114 


69 


1115 


0000 




1115 


65 


1551 


0572 


0599 


1117 


20 


1519 


0600 


05^6 


1152 


65 


1155 


1154 




1155 


(01 


1111 


1111) 




1154 


69 


1155 


0000 




1155 


71 


0027 


0954 



Notes 

OOOOO^n^g— >sub 
Read in phase 2a and 
go to 0510, IB 

Punch: "Store p- |or a?iong 

I: Go to 121 

Set T g = 0. I: Go to 151 

Punch: "Stop" 

I: Go to 581 
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Title — Interpreter: 

Simple Rec. En<Wrocedure for = sign 



Came 
from 

0439 



1138 



0772 



Loc. of 


Op. 


Data 


Instr. 


Instr. 


Code 


Address 


Address 


0760 


16 


0761 


0762 


0761 


(00 


0000 


0180) 


0762 


*5 


1136 


109^ 


0763 


15 


0761 


076^ 


076^ 


20 


0902 


0765 


0765 


69 


0766 


0150 


0766 


69 


0767 


0150 


0767 


20 


0901 


0768 


0768 


65 


0902 


0769 


0769 


30 


0002 


0770 


0770 


16 


0771 


0772 


0771 


(00 


0000 


0005) 


0772 


U 5 


0777 


0773 


0773 


65 


0901 


077^ 


077^ 


69 


0775 


1201 


0775 


15 


0V71 


0776 


0776 


69 


0799 


0000 


0777 


69 


0778 


0150 


0778 


16 


0^9 


0779 


0779 


45 


0777 


0780 


0780 


69 


0781 


0100 


0781 


69 


0782 


1202 


0782 


4 5 


0783 


0784 


0783 


01 


0783 


0000 


078^ 


69 


0785 


0100 


0785 


16 


0786 


0787 


0786 


(00 


0000 


7028) 


0787 


*5 


0788 


0790 


07&8 


65 


1217 


0789 


0789 


69 


0782 


1282 



Notes 

Test for Branch 

D: go to 221 I: go to JOI 

Store — On.n-0 in 0902 

Scan left 

Scan left to a 9 

8 

a ->-0901 
s 



(0902)=n L n 2 



Test n = 5 



Oat 9 



Punch: Store a. 
Go to 231 



s 



Scan left for V - ?o3 



Scan rt. to a 7 

Search TAI for u 7 

Test for u 7 or end of table 

Error 

Scan rt 

test for P02 



Hq7— ►L.A. 
resume scan 
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Title — Interpreter: 

Simple Rec. End— Proc. for = sign 



Page 221 



Came 


Loc. of 


Op. 


Data 


Instr 


from 


Instr. 


Code 


Address 


Addrei 




0790 


69 


0791 


0100 




0791 


20 


0237 


0792 




0792 


69 


0793 


1201 




0795 


15 


Ok6o 


079^ 




079^ 


69 


0795 


0000 




0795 


65 


0901 


O796 




0796 


69 


0797 


1201 




0797 


15 


0V71 


0798 




0798 


69 


0799 


0000 


0762 


1136 


16 


1137 


1138 




1137 


(00 


0000 


0100) 




1138 


45 


0763 


1185 



Notes 



Scan rt to u 9 
00000 £ _9-*£ 



Punch "Mod jl " 

q. 



a. 



Punch: Store a 



s 



Go to 231 



D:Go to 211. I:Go to 321 
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Title 


— Interpreter: 
Simple Rec. End : 


Procedure 




Came 


Loc. of 


Op. 


Data 


Instr 


from 


Instr. 


Code 


Address 


Addre 


0798 
0776 


0799 


65 


1550 


0800 




0800 


69 


0813 


0209 


0815 


0801 


69 


0802 


0150 




0802 


92 


0803 


0801 




0803 


69 


08o4 


0100 




0&04 


9^ 


0805 


O808 




0805 


69 


0806 


0807 




O806 


(00 


0000 


O808) 




0807 


24 


1011 


1000 


LOU 


O808 


69 


0809 


1199 




0809 


65 


1550 


0810 




0810 


16 


0811 


0812 




0811 


(00 


0001 


0002) 




0812 


45 


0731 


0814 


>800 


0813 


20 


1512 


0801 




o8l4 


69 


1512 


0815 




0815 


24 


0109 


0816 




0816 


69 


0817 


0150 




0817 


16 


0449 


0818 




0818 


45 


0816 


0819 




0819 


69 


0820 


0100 




0820 


69 


0821 


0100 




0821 


98 


0834 


0822 




0822 


92 


0830 


0834 


)831 


0823 


69 


0109 


0824 




0824 


2k 


1512 


0825 




0825 


69 


0826 


1198 




0826 


65 


1512 


0827 




0827 


30 


0003 


0828 




0828 


15 


0641 


0829 



Notes 



#(= of b-eqJ-j-Sc 



scan left to b 



Test for d 



set exit of 1011,161 to be 
Go to 161 O 808 



B i+ U B 1 



Test B for End-Rec .Mark 
D: Go to 191 
Sc-*Sc 
SCj-* Sc 

scan left 

Test forV = Po3 



scan rt to u 7 

scan rt 

test for bij of minimization 



8c— *Be, 



1 

i+1 
#(bij) 



B^B 



Min Tag » 03 
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Title — Interpreter: 

Simple Rec End Procedure 



Came 
from 


Loc. of 
Instr. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 




0829 


20 


1550 


0832 


#(Mj)3-*B° 


0822 


0830 


69 


0831 


1201 


^(bij)0-*-E 




0831 


20 


1510 


0823 






0832 


69 


0833 


0558 


Read in phase 2a and 




0833 


(00 


0000 


0300) 


go to 0300, IB 


0821 
0822 
1978 


0834 
0835 


69 
69 


0835 
O836 


©150 
1201 


scan left to 11 7 
<1 




0836 


15 


0755 


0837 


Punch: "Increment u " 




0837 


69 


0838 


0000 


Go to 251 
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Title — Interpreter: 

Simple Rec End Procedure 



Came 
from 



Loc. of Op. 
Instr. Code 



0840 



O838 
0859 
0840 
0841 
0842 
08J+3 
0844 
0845 
0846 
0847 
0848 
0849 
0850 
0851 
0852 

0855 
0854 

0855 
0856 

0857 

0858 

0859 
0860 
0861 
0862 
0863 
0864 

0865 
0866 
0867 



69 

98 

95 
16 

(00 
4 5 
20 
65 
69 
15 
69 
69 
69 
69 
15 
69 
69 
93 
69 

(24 
24 
24 
94 
69 

(00 
24 
16 
45 
65 
45 



Data 
Address 

0839 

0840 

0844 

0842 

0000 

O838 

0907 

0237 

0847 

0460 

0849 

0850 

0851 

0852 

0484 

0854 

O855 

0856 

0857 

0109 

0704 

0903 
0861 
0862 

0000 
1011 
0423 
0854 

0903 
0874 



Instr. 
Address 

0100 

O838 

0841 

0843 

7048) 

0884 

0845 

0846 

1201 

0848 

0000 

0150 

0150 

1201 

O853 

0000 

0150 

O860 

O858 

0854) 

O859 

0646 

0864 

0863 

0854) 

1000 

O865 

O866 

0867 

0879 



Notes 

scan rt 
test for 



Test for P04 i.e. for) 

I: Go to 271 

= n^-5-0907 

0...0 JT 9-^-L.A. See 0791 



Punch: "Mod.u 



scan left from 
scan left to a 



Punch: "Ins a " 
s 



scan left 
Test for r 



set exit of 0704,l8l to be 0854 

j£ -*-X Go to 171 
Test for d 



set exit of 1011, l6l to be 
Go to 161 <*& 
test for comma 



zero test X 
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Page 261 



Title - 


- Interprets 
Single Rec 


r: 
End Procedure 




Came 
from 


Loc. of 
Instr. 


Op. 

Code 


Data 
Address 


Instr. 
Address 


0874 


0868 


65 


0907 


0869 




O869 


16 


0*38 


0870 




0870 


30 


0002 


0871 




0871 


16 


0641 


0872 




0872 


k6 


0873 


0877 




0873 


69 


0875 


1199 


O867 


0&7* 


21 


0903 


0868 




0875 


69 


O876 


0100 




0876 


95 


0523 


0875 




0877 


69 


O878 


0100 




O878 


95 


0838 


0877 


0867 


0879 


69 


OO63 


0880 




0880 


2k 


0562 


0881 




0881 


69 


0882 


0883 




0882 


(2^ 


0109 


0868) 




0885 


2k 


070^ 


1977 




1977 


69 


0109 


1976 




1976 


2k 


1512 


0686 



i 



Notes 

=n l n 2~*" L ' A * See 0& ^^ 

(0*38) = ...05008 

(06*1) = ...03 
test n,> 2 

r,i+l «i 
B — >B 

Zero->X 

Scan rt to = 

Go to 10 I 

Scan rt to = 

Go to 25 I 

Store 000001 0000 in S 



Set exit of 070*. l8l to be 
0868 

Sc -ySc-L 
Go to 171 
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Title - Interpreter: 

Simple-Rec End Procedure 



Page 27 X 



Came 
from 


Loc. of 

Instr. 


Op. 
Code 


Data 
address 


Instr. 
Address 


Notes 


081*3 


0884 


65 


0542 


O885 


S.C.C. "No Op"— *-L.A. 




0885 


69 


0886 


0000 


Punch: "No 0P"-»» X 




0886 


69 


0887 


0150 


Scan left 




O887 


98 


0888 


0897 


Test for = 




0888 


95 


0889 


0897 






0889 


65 


1504 


0890 


X = (l.C.)-*-L.A. 




O890 


30 


0003 


0891 






0891 


10 


0109 


0892 


Replace = by XO 




O892 


69 


0896 


02oo 






0896 
0897 


69 
16 


0886 

0449 


0894 
O898 


B I -> (-)+l, (=)+2 

See 10 I and 14 I for 

subroutine 

Test for V="P<>3 




O898 


1*5 


0886 


0899 






O899 


69 


0544 


1199 


B i+ i-?- B 1 Go to 11 I 


D3^T 


0900 


01 


0900 


0000 


Error 
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Page 28 X 



Title — Interpreter: Branching 



Came Loc. of 
from Instr. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 


35 ^ 1052 
1053 


24 
69 


0U7I 
1054 


1053 
0100 


SC.C. "Branch on ..."-> 0471 

See 7a, I • 3S X 
Scan rt from f ffi 


1054 


16 


0423 


1055 


test for comma 


1055 


^5 


1056 


1057 




1056 


01 


1056 


0000 


Error 


1057 


65 


1059 


1058 




1058 


10 


0109 


1060 




1059 


(00 


0000 


5188) 


Replace comma by = 18 


1060 


69 


1061 


0200 




1061 


69 


1505 


1062 


(pctr) = Z 


1062 


24 


0907 


1063 


1-+V 


1065 


69 


1036 


1064 


S.C.C ."Subtract"-* 0464= OP 


1064 


2k 


0464 


IO65 


see 7a, I 


IO65 


69 


1065 


0150 


scan left to f T _ 


1066 


65 


1505 


1067 




1067 


30 


0003 


1068 


Replace f^ by % 


1068 


10 


0109 


IO69 




1069 


69 


1998 


0200 




1998 1070 


69 


1071 


1072 




1071 


(00 


0000 


1073) 


set exit of 047J,7a I to be 


1072 


2k 


0473 


0450 


1073- Go to 7a I 


1073 


69 


1074 


1075 


Reset exit of 0473, 7a I to 


107^ 


(00 


0000 


0ko6) 


be 0406 


1998 


69 


1070 


0040 


Decrement |3ctr 
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Title — Interpreter: Branching 



Page 291 



Came 
from 


Loc. of 
Instr. 


Op. 
Code 


Data 
Address 


Instr. 
Address 




Notes 




1075 


24 


0473 


1076 






1076 


69 


1077 


1078 






1077 


(if 6 


0000 


0155) 


Restore 0471,7aI.See 1052, 




1078 


24 


0471 


II96 


281 




1079 


60 


1511 


1080 1 








1080 


4 5 


1084 


1081 








1081 


10 


1006 


1082 




1006= 10 0000 0000 




1082 


21 


1511 


1083 








IO83 


69 


1997 


0100 








1084 


60 


1511 


1085 > 


Replace 6. , by 1 in B.I. 




1085 


30 


0001 


1086 




v •*■ 




1086 


21 


1511 


1087 








1087 


11 


8003 


1088 








1088 


45 


1089 


1084 








IO89 


10 


1511 


1090 








1090 


35 


0001 


w 




see II96 and 1182 




1091 


15 


1006 


1092 








1092 


36 


0000 


1082^ 








1093 


69 


9999 


0100 


scan rt to f of first formula 


1083 


1997 


69 


1093 


0558 


read in phase 2a and go to 




1999 


10 


1197 


1092 


0327, IB or 0601, 1R. See 
1 I and 11 I. 
change 1 to 2 




1197 


(00 


0000 


0001) 




1078 


II96 


69 


1195 


1194 






1195 


(35 


0001 


1091) 






1194 


2k 


1090 


1079 
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Title — Interpreter: Branching 



Page 30 i 



Came 
from 


Loc. of 
Instr. 


Op. 
Code 


Data 
Address 


Instr. 
Address 




Notes 


0762 


109 1 * 


65 


15C4 


1095 




(I.C) - 7 




1095 


30 


0003 


1096 








1096 


10 


0109 


1097 








1097 


69 


1098 


0200 




7 replaces —jd 




1098 


69 


1099 


1139^, 








1099 


(24 


0109 


1148) 








1139 


24 


0564 


1140 








1140 


69 


1141 


1142 








1141 


(45 


0510 


1148) 








1142 


24 


0509 


1143 








1143 
111* 


69 
(98 


1144 
0560 


1145 
1148) 


> 


Change exits of 0564,0509, 

0520 
9-11 I to be 1148 




1145 


24 


0520 


1146 








1146 


69 


1147 


0150 * 








1147 


69 


0440 


0150 " 




Go to 9 I 




1148 


69 


1149 


1150 ~"> 








1149 


(24 


0109 


0521) 








1150 


24 


0564 


1151 








1151 


69 


1152 


H53 








1152 


(45 


0510 


0521) 


> 


reset exits of 0564,0509,0520 




1153 


24 


0509 


1154 


9-11 I to be 0521 




1154 


69 


1155 


1156 








1155 


(98 


0560 


0521) 








1156 


24 


0520 


1157 , 
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Page 31 X 



Title - Interpreter: Branching 

Came Loc . of Op. Data Instr. 

from Instr. Code Address Address 

1157 69 1158 0100 

1158 95 1159 1157 

1159 69 1160 0100 

1160 60 8002 1161 

1161 35 0003 1162 

1162 15 1504 II63 
H63 15 OO63 1164 

1164 15 1165 1166 

1165 (00 0000 0129) 

1166 69 II67 0050 

1167 69 1168 0100 

1168 69 1169 0100 
H69 65 1505 1170 

1170 15 H65 1171 

1171 69 1172 0000 

1172 65 1505 1173 

1173 30 0003 1174 

1174 10 0109 1175 

1175 69 II76 0200 

1176 69 1177 0100 

1177 65 II78 II79 

1178 (00 0000 5288) 



> 



Notes 

scan rt to = 

scan rt to t„ 



Data Punch: "Transfer to X.-.+1" 
= S.C.C. "Transfer" 



scan rt to y 

scan rt to first f in i|f (i.e.p) 

Punch: "Transfer to \ * 



Replace p hy ^ 



scan rt to comma after \|r 



Z8 



150 



NAVORD Report 4412 



Title — Interpreter: Branching 



Page 321 



Came 
from 


Loc. of 
Instr. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 




1179 


10 


0109 


1180 


replace comma 




1180 


69 


1181 


0200 


b y =zs 




1181 


69 


1182 


1183 






1182 


(35 


0001 


1999) 


set exit of 1090, 301 




1183 


24 


1090 


118U 


to be 1999 




1184 


69 


0656 


0150 


scan left 




0656 


69 


1079 


0040 


Decrement to 0ctr 


m 


1185 


69 


1186 


0150 


Scan left to % 




1186 


60 


8002 


1187 N 






II87 


35 


0003 


1188 






1188 


15 


150^ 


II89 






1189 


15 


OO63 


1190 


> Data punch: "Trans X2+l"->- 




1190 


15 


U65 


1191 


f 




1191 


69 


1192 


0050 , 






1192 


69 


H93 


0150 


scan left to 7 




1193 


35 


0003 


0487 






. 0487 


15 


II65 


0488 


Punch "Trans 7" 




0488 


69 


0489 


0000 






0489 


60 


1511 


0490 "^ 






0490 


30 


0001 


0491 






0^91 


21 


1511 


0492 






0^92 


11 


8003 


C493 


S. Replace last '2' in BI 
by zero 




0^93 


45 


0494 


0489 




049^ 


60 


1511 


0495 






0495 


^5 


0496 


0497 






0496 


36 


0000 


0497 






0^97 


21 


1511 


0498 






0498 


69 


0499 


0150 


scan left to X 




0^99 


69 


0523 


0150 


scan left to =. Go to 10 
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Page 33 x 



Title — End — Minimization 



Came 


Loc . of 


Op. 


Data 


Instr. 




from 


Instr . 


Code 


Address 


Address 


Notes 


0551 


1996 


69 


1512 


1995 


^b-ysc 




1995 


24 


0109 


1994 






1994 


69 


1993 


0150 


scan to b 




1993 


69 


1992 


0100 






1992 


69 


1991 


0209 


Initialize sc with ?$*-(b eq) 




1991 


69 


1990 


0100 


scan rt to a 




1990 


69 


1989 


1201 







1989 


15 


0484 


1988 


Punch: "ins .a " 




1988 


69 


1987 


0000 


s 




1987 


65 


1504 


1986 


i.e. - a 

if 




1986 


15 


1985 


1984 


Jl 




1985 


(00 


0002 


0000) 


Punch: "Br on > to a +2" 




1984 


15 


1983 


1982 


It 




1983 


(00 


0000 


0121) 






1982 


69 


1981 


0000 






1981 


69 


1980 


1199 


B i+ W B 1 




1980 


60 


1512 


1979 


-5**b-*-Sc 




1979 


21 


0109 


1978 






1978 


69 


0834 


0200 


replace b by zero and so 



to 24 I 
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Page 34 1 



Title — Interpreter: 


Li(f) 


for degree 


degree 


U.A. 




Came Loc. of 
from Instr. 


Op. 

Code 


Data 
Address 


Instr. 
Address 


Notes 


1402 


24 


1028 


1026 


+ 


go from fmn to 1400 +mn 


1026 


60 


1027 


1028 




see 0350, 31 


1027 


(00 


0002 


0000) 




1028 


99 


9999 


9999 


exit 


1403 


24 


1028 


1026 


- 


l4o4 


24 


1028 


1026 


X 


1405 


24 


1028 


1026 


-j- 


1407 


24 


1028 


1029 


Ins Abs 


1029 


60 


OO63 


1028 


(0063) = 00 0001 0000 


1412 


24 


1028 


1029 


S(vrt 


11+13 


24 


1028 


1029 


Neg Abs 


1415 


24 


1028 


1029 


e x 


1416 


24 


1028 


1029 


Sjr 


1417 


24 


1028 


1029 


sin 


l4l8 


24 


1028 


1029 


cos 


1401 


24 


1028 


1029 


ident 


1406 


24 


1028 


1029 


neg ident 


1409 


24 


1028 


1026 


Br on = 


1410 


24 


1028 


1026 


Br on< 


1411 


24 


1028 


.1026 


Br 


on i 
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Page 35 x 
Title - Interpreter: set up meta generator for unitary functions 



Came 
from 


Loc. of 
Instr. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 




1301 


69 


0481+ 


1045 


Ident . 




1045 


24 


0461+ 


1046 


"Ins Abs"-* OP 




1046 


65 


0917 


1047 


Zero test M, 




1<*7 


45 


101+8 


1050 






1048 


15 


0460 


1049 


Punch "Mod (M^" 




10U9 


69 


1050 


0000 






1050 


65 


0908 


0990 






0990 


15 


0464 


0991 


Punch "OP 0," 




0991 


69 


0466 


0000 


Go to 7a I 




1306 


69 


0992 


1045 


Neg Ident 




0992 


(61 


0000 


0180) 


= S.C.C. "Ins .Minus" 




1307 


69 


0993 


1045 


Ins Abs 




0993 


(67 


0000 


0280) 


= S.C.C. "Ins Abs" 




1313 


69 


0994 


1045 


Neg Abs 




099^ 


(68 


0000 


0280) 


= S.C.C. "Ins Neg Abs" 




1312 


69 


0995 


1045 


Sq Rt 




0995 


(66 


0000 


0380) 


= S.C.C. "Sq Rt" 






Branch Functions 






1309 


69 


0996 


1052 


Br on = 




0996 


(00 


0000 


0120) 


S.C.C. "Br on = % o471.Go to 




1311 


69 


1983 


1052 


Br on* 28 1 




1983 = 


(00 


0000 


0121) 






1310 


69 


1051 


1052 


Br on — 




1051 


(00 


0000 


0126) 
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Page 36 X 



Title — Interpreter: 



Meta generator for functions 
needing key cards 



Came from Loc. of 
Instr. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 


X 

e 


1315 


65 


0926 


0951 


R(f)-»L.A. 




0926 « 


- (CO 


0079 


0000) 


initially R(f )=-/(f )(i.e. 




0951 


46 


0952 


0937 


minus the length of the 
subroutine) 




0952 


20 


0910 


0953 


-/(f)->09l0 




0953 


65 


1505 


0930 


"pctr"— *R(f) 




0950 


20 


0926 


0931 




Jkx 


1316 


65 


0927 


0978 


R(f)— *L.A. 




0927 «= 


-( 00 


0100 


0000) 






0978 


46 


0979 


0937 


test L.A. for -^(f) or +£ctr 




0979 


20 


0910 


0980 


-^(f)-»-0910 




0980 


65 


1505 


0981 






0981 


20 


0927 


0931 




sin x 


1317 


65 


0928 


0982 






0928 = 


- (00 


0088 


0000) 


R(f)— »L.A. 




0982 


46 


0983 


0937 






0983 


20 


0910 


0981* 


-i(f)-*0910 




098i+ 


65 


1505 


0985 






0985 


20 


0928 


0931 




cos X 


1318 


65 


0929 


0986 


R(f)-*L.A. Go to 37 I 




0929 - 


- (00 


0088 


0000) 






0931 


15 


0932 


0933 






0932 = 


(1*5 


0000 


0198) 


(0932 )=S .C .C ."subroutine"="63" 




0953 


20 


01*64 


0934 


"63pctr"-* OP 




0934 


65 


1505 


0935 


Decrement gctr by-£(f) 




0935 


15 


0910 


0936 






0936 


20 


1505 


0939 


Go to 37 I 




0937 


15 


0932 


0938 


"63 Pctr"— *0P 




0938 


20 


01*64 


0939 


Go to 37 I 
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Title — Interpreter: Meta generator for functions 

needing key cards 



Page 57 x 



Came 
from 


Loc. of 
Instr. 


Op. 
Code 


Data 
Address 


Instr. 
Address 


Notes 




0959 
09^0 


60 
11 


0908 
0340 


0940 
0941 


Test 1 =_p 




0941 


45 


0942 


0949 






0942 


65 


0917 


0943 


zero test M, 




09^3 


45 


0944 


0946 






09W 


15 


0460 


0945 


Punch "Mod M^' 




0945 


69 


0946 


0000 






0946 


65 


0908 


0947 






0947 


15 


0484 


0948 


Punch "Ins 0^ 




0948 


69 


0949 


0000 






0949 


65 


0464 


0950 


Punch: "OP" 




0950 


69 


0466 


0000 


Go to 7a I 


1318 


0986 


46 


0987 


0937 






0987 


20 


0910 


0988 


-i(f)-^0910 




0988 


65 


1505 


0989 


"3ctr"— >R(f) 




0989 


20 


0929 


0931 


I: Go to 36 I 
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Page 381 



Title — Interpreter: Punch out needed key cards 



Came 


Loc . of 


Op. 


Data 


Instr . 


from 


Instr . 


Code 


Address 


Address 




095^ 


69 


0957 


0956 




0956 


2k 


0036 


0957 




0957 


60 


0926 


0958 




0958 


kS 


0967 


0959 




0959 


11 


0932 


0960 




0960 


21 


0032 


096I 




0961 


69 


0962 


0963 




0962 


(00 


0001 


0000) 




0963 


2k 


003^ 


096I+ 




096k 


61 


8001 


0965 




0965 


20 


0027 


0966 




0966 


71 


0027 


0967 




0967 


60 


0962 


0968 




0968 


11 


0969 


0970 




0969 


(00 


000^ 


0000) 




0970 


45 


0971 


0977 




0971 


10 


0972 


0973 




0972 


(00 


0005 


0000) 




0973 


21 


0962 


097^ 




097 1 * 


60 


0957 


0975 




0975 


10 


0316 


0976 




0976 


21 


0957 


8001 




0977 


01 


7171 


7171 



Notes 



"Non-8" in pos. 10 -»0036 

Minus test R(f). D:See 097^ 

for (0932) see 36 I 
00 O0000 -*0032 

Initially. See 0971-0973 

-Zero -> 0027 

Punch 

test 0962=00 000^ 0000 



increment 0962 



increment 0957 

I: Go to 0957 

STOP. Formulation has been 
programmed 
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E. ERROR INDICATIONS 
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NAVORD Report VH2 

Error Indications (Phase 1) 

0254: numeric should be alphabetic 

0257: non-permissible alphabetic or omission of P02 or P01 

0267: alphabetic should be numeric 

0271 : zero should not be in computer table 

0675: duplicate a's in computer table 

QkkS: integer a not followed by q 

OJ+98: subscript of qnm or rmn >. 50 

0466 last symbol of formulation is not comma 

0505: error on left side of « sign 

0532: duplicate b's that are not a vector 

05^2: no right parenthesis in vector equation, or 
right parenthesis in wrong position 

05^9: different subscripts on b's to left of - in vector 
equation or vector recursion 

0560 : error in quantification of vector recursion 

0566: no comma to left of V or more than one V in vector 
equation 

0577: duplicate b in double recursion 

0599: right side of r equation doesn't begin with f 

0618: duplicate r-equation 

0594: right side of r-equation is not a we Ik-formed formula 

O636: fmn defined by f-equation is a library function 

06kl: duplicate f-equation and not vector 

0707: b,r,f undefined or a not in computer table 

07^7 : numeric + a is negative initial address 

08o4: more than 50 numerical constants in formulation 

O839: no bOO equation 



Page 



1, 


I.A. 


1, 


I. A. 


1, 


I. A. 


1. 


I. A. 


2, 


I. A. 


7, 


I. A. 


8, 


I. A. 


1, 


F.S. 


3, 


F.S. 


k 


F.S. 


k 


F.S. 



5 F.6. 

5 F.S. 

5 F.S. 

6 F.S. 

7 F.S. 

7 F.S. 

8 F.S. 

9 F.S. 
9 F.S. 

2 S.S. 

3 S.S. 
5 S.S. 

1 of End Phase 1 
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Page 


1, 


Q 


2, 


Q 


2, 


Q 


3, 


Q 


3, 


Q 


3, 


Q 
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NAVORD Report W-12 
Error Indications (Phase 2a and b) 

1517: improper quantifier bound J a of degree 1. 

1526: quantifier bound is non-setup Q or non-permissible 
symbol 

1330 : right side of r-equation does not begin with f 

1350 : error in upper bound of minimization 

1361 : error in fo of minimization 

1377: error in Q of minimization 

139^: Q was twice quantified 

lk9k: no Q in TAI 

0957: double recursion or recursion index not in 
computer table 

0798: Eo^g has ng= 0, n ^ 0. 

0359: vector equation of vector recursion (Not permitted 
in model ll/B-equation contains special library f 

0306: right side of b-equation does not begin with f 

0318: left side of b-equation has non— permissible symbol 

or symbols out of order 1, B 

(A21: a non— recursion b occurs implicitly, i.e. is 
referred to twice before being programmed 

0528: b of degree 1 or 2 with improper index 

0557: improper argument in b-equation 

0600 : n 2 -fi 9, 1, or 2 in vector equation 

0966: Stop for model 1, incompleteness 

O608: no TLU minimization permitted in Model 1 
will stop with 1*5 2002 0609 

0621 : r is a quantifier bound and involves a non-6etup q 

O636: q in r-equation not setup in (aq) with Tp£ 0. 

0650 : storage r involves a'r 

0655: incorrect operand in r-equation 

0726: (l) storage r equation does not have CQl or_q 

or (2) no q or C02 if TS = e 17 
or (3) a involves other q 
0770 : q not setup in store b equation 6, R 
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NAVORD Report kkl2 

Error Indications (Phases 2a and b) continued 

1072: entry from b-6chema with q not set up k, A 

1090 : improper index: not q, r, nor numeric 5, A 

0973: recursive Q not properly set up 8, A 

0425: incomplete stop: bifeis not i>ermitted in model 1 1, I 

0326: b-equation not well formed formula 2, I 

O9OO : auxiliary f-equations not permitted in model 1 27, I 

0382: incorrect number of operands for some f 5, I 

0750 : error in quantifier schema 15, I 

0759: store r not written or written to left of quantifier 15, I 

1017: m of dmn >5 16, I 

O65I : encoder error: storage r for b equation 17, I 

0681 : storage r not in computer table 17, I 

0783: error in Q schema or recursion Schema. No ^q7 in TAI 21, I 

1056: error in formulation of branch equation 28, I 
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